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I  The  overall  gun  tube  heat  transfer  problem  applicable  to  any  weapon,  anuiunition,  and 
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to  reduce  by  one  the  number  of  independent  variables.  The  functional  in  approximate 
solution  form  is  chosen  on  the  basis  of  the  asymptotic  solution  of  the  steady  differ¬ 
ential  equations  for  large  values  of  the  spacellke  coordinate,  The  error  functions, 
consequently,  occur  In  the  solution  form  for  boundary  layers.  The  method  of  Galerkln 
is  used  as  the  error-distribution  principle.  All  integrations  across  the  boundary 
layer  are  performed  analytically.  The  Method  of  Lines  is  used  to  reduce  the  resulting 
partial  differential  equations  in  two  independent  variables  to  an  approximate  set  of 
ordinary  differential  equations.  This  procedure  enables  one  to  solve  for  derivatives 
by  the  reduction  of  a  matrix  with  elements  not  more  than  the  number  of  undetermined 
parameters  introduced  into  the  solution  form.  Finally,  the  solutions  are  obtained  by 
a  fourth  order  Runga-Kutta  integration  scheme.  The  typical  output  contains  not  only 
profiles  of  velocity  components,  temperature,  and  density  but  also  various  boundary 
layer  parameters  and  convective  heat  transfer  coefficient.  The  numerical  results  are 
in  agreement  with  Hall  and  Blaslus  results  with  even  one  term  In  approximate  solution 
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ABSTRACT 


The  overall  gun  tube  heat  transfer  problem  applicaL1e 
to  any  weapon,  ammunition,  and  firing  schedule  was  analyzed. 
Toward  this  goal,  the  solution  to  one  of  the  five  problems 
involved  was  investigated  by  personnel  of  the  Research 
Directorate,  Weapons  Laboratory  at  Rock  Island.  The  govern¬ 
ing  equations  of  unsteady  compressible  boundary  layers  are 
a  system  of  nonlinear  parabolic  partial  differential  equa¬ 
tions  with  three  independent  variables.  The  transverse 
coordinate  is  modified  to  absorb  the  compressibility  effect. 

The  stream  function  is  introduced  to  satisfy  the  continuity 
and  also  to  eliminate  one  of  the  dependent  variables.  The 
method  of  weighted  residuals  is  used  to  reduce  by  one  the 
number  of  independent  variables.  The  functional  in  approxi¬ 
mate  solution  form  is  chosen  on  the  basis  of  the  asymptotic 
solution  of  the  steady  differential  equations  for  large  values 
of  the  spacelike  coordinate.  The  error  functions,  conse¬ 
quently,  occur  in  the  solution  form  for  boundary  layers.  The 
method  of  Galerkin  is  used  as  the  error-distribution  principle. 
All  integrations  across  the  boundary  layer  are  performed 
analytically.  The  Method  of  Lines  is  used  to  reduce  the  re¬ 
sulting  partial  differential  equations  in  two  independent 
variables  to  an  approximate  set  of  ordinary  differential 
equations.  This  procedure  enables  one  to  solve  for  deriva¬ 
tives  by  the  reduction  of  a  matrix  with  elements  not  more 
than  the  number  of  undetermined  parameters  introduced  into 
the  solution  form.  Finally,  the  solutions  are  obtained  by 
a  fourth  order  Runga-Kutta  integration  scheme.  The  typical 
output  contains  not  only  profiles  of  velocity  components, 
temperature,  and  density  but  also  variuus  boundary  layer 
parameters  and  convective  heat  transfer  coefficient.  The 
numerical  results  are  in  agreement  with  Hall  and  Blasius 
results  with  even  one  term  in  approximate  solution  form. 
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NOMENCLATURE 


Bj,  B2  =  Functions  of  x  and  t  as  defined  in 
Equation  3.11 

Coefficient  in  dynamic  vi scosi ty- temperature 
rel ationshi p 

Skin  friction  coefficient 
Specific  heat  at  constant  pressure 

Inner  diameter  of  the  tube 

s  =  Functions  in  the  ordinary  differentia" 
equations 

Gravitational  constant 
Convective  heat  transfer  coefficient 
Thermal  conductivity 
Length  of  the  plate 
Nusselt  number 

Pressure 
Prandtl  number 
Turbulent  Prandtl  number 

Heat  flux 

Function  of  similarity  variable  (n)- 
Equation  5.12 

Gas  constant 

Reynolds  number 

Function  of  similarity  variable  (n)  - 
Equation  5.12 


NOMENCLATURE 


Stanton  number 
Time 

T  emperature 

Tangential  velocity  component 

Dimensionless  tangential  velocity  - 
Equation  2.7 

Normal  velocity  component 
Vel oci ty 

Longitudinal  coordinate 
Transverse  coordinate 


r 

po 


Dimensionless  transverse  coordinate 


erf ( b  xy) 


-m2dm 


Stream  function 


Approximation  to  ^  in  terms  of  ip  ,  <pz,  \p. 


Difference  in  temperatures  between  gas  and  wall 
Density  of  gas 


NOMENCLATURE 


Y  =  Specific  heat  ratio 

t  =  Shear  stress 

v  =  Kinematic  viscosity 

e  =  Eddy  viscosity 

la  =  Dynamic  viscosity 

r)  =  Covolume  of  propellant  gas  or  similarity 

(o  =  Exponent  in  dynamic  viscosity-temperature 

rel ati onshi p 

5  i  ,,S2  »fl2  =  Coefficients  defined  in  Equation  3.11 

6  =  Boundary  layer  thickness 

6d  =  Displacement  thickness 

6 ed  =  Energy-dissipation  thickness 

6^  =  Enthalpy  thickness 

<5  =  Momentum  thickness 

m 

=  Velocity  thickness 
X  =  Dimensionless  x-coordinate 

Subscripts : 

0  =  Reference  quantity 

1  =  Outer  edge  of  the  boundary  layer 

b  =  Behind  the  shock 
w  =  Wall  conditions 


NOMENCLATURE 


Superscri pts : 

•  =  Differentiation  with  respect  to  time 

=  Differentiation  with  respect  to  similarity 
variable 
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1  .  INTRODUCTION 

As  the  projectile  in  a  weapon  moves  ahead  because  of  the 
high-pressure  gases  created  by  the  burning  propellant,  the 
propellant  gas  will  be  set  into  motion  starting  from  rest. 
Since  the  governing  equations  of  fluid  dynamics  for  many 
problems  of  interest  are  a  system  of  nonlinear  partial  dif¬ 
ferential  equations  which  are  dominated  by  real  gas  and  non- 
equiiibrium  effects,  no  general  solutions  exist  by  which 
arbitrary  initial  and  boundary  conditions  are  allowed. 
Therefore,  examination  of  the  flow  field  and  the  subdivision 
of  the  overall  problem  by  consideration  of  the  dominant 
features  only  seem  appropriate  The  ultimate  objective  is 
to  establish  a  capability  to  perform  overall  heat-transfer 
analysis  for  any  given  dimensions  of  the  weapon  and  for 
specified  propellant  characteristics.  Toward  this  goal, 
the  propellant  gas  convective  heat-transfer  problem1  is 
divided  into  five  subproblems.  (1)  generation  of  thermo¬ 
chemical  properties  for  any  given  propellant,  (2)  transient 
inviscid  compressible  flow  through  the  gun  barrel  (core 
flow),  (3)  unsteady  viscous  compressible  flow  on  the  bore 
surface  (boundary  layers),  (4)  transient  heat  diffusion 
through  the  multilayer  gun  tube,  (5)  unsteady  free  convection 
and  radiation  outside  the  gun  tube. 

As  the  propellant  burns,  more  and  more  hot  gases  will  be 
generated.  Typical  gas  in  a  chamber  contains  a  temperature 
of  5000-R  and  a  pressure  of  50,000  psi.  The  thermochemi stry 
of  propellants  involves  determi nati on  of  chemical  composition 
of  gases  either  by  finite-rate  chemistry  or  by  chemical- 
equilibrium  chemistry  and  the  derivation  of  gas  properties 
from  the  compositor  Thermochem  )ca'>  properties  of  typical 
propellant  gases  are  being  pred'cted  by  use  of  a  NASA-LEWIS 
thermochemical  program  The  gases  were  highly  toxic. 

Typical  composition  of  the  gases;  M18  (CO  =  0.41,  H;  =  0.19, 
H20  =  016,  N,  -  01,  CO  -  0.08)  and  IMR  (CO  =  0.43, 

H2  =  0,12,  H,0  •  0  21,  N,  -  0  12,  CO-  --  0  12)  IMR  is  better 
than  M18  as  far  as  combustion  is  concerned,  but  IMR  is  still  a 
long  way  from  possible  complete  combustion  The  consequences 
of  incomplete  combustion  are  muzzle  fiash,  smoke,  ..nd  fire  in 
addition  to  ;ow  efficiency  Wth  th-s  program,  one  can  com¬ 
pute  not  only  chemical  composition  of  gases  but  also  specific 
heats,  gas  constant,  and  so  forth  as  functions  of  pressure 
and  temperature. 

In  instances  of  the  unsteady  core-flow  problem,  uniform 
density,  uniform  temperature,  and  linear  velocity  gradient 
are  commonly  used  m  a  gas  flow  between  the  breech  and  the 
bullet-  Since  the  governing  equations  of  this  problem  are  of 
the  hyperbolic  type,  they  can  be  soU-ed  by  the  well-known 
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method  of  character istics ,  Some  of  the  results  obtained  by 
this  method  were  discussed3  before.  None  of  these  assump¬ 
tions  is  reasonable  until  after  peak  heating  occurs.  In 
general,  however,  the  linear  velocity  gradient  assumption  is 
better  than  the  uniform  density  assumption. 

The  boundary  layer  problem  can  also  be  interpreted  as 
forced  convective  heat  transfer  in  guns.  The  magnitude  of 
convective  heat  transfer  in  guns  is  large  primarily  because 
of  the  high  values  of  gas  densities  that  exist  and  because 
of  the  large  gas-to-wall  temperature  differences  in  addition 
to  the  larger  gas  flow  velocities  which  constitute  the  convec¬ 
tive  heat  transfer  driving  potential.  Experimental  data  are 
commonly  correlated  with  the  various  analytical  or  empirical 
techniques.  The  most  popular  method  for  heat  transfer  corre¬ 
lation  purposes  derives  from  the  postulates  of  Nordheim,  Soodak 
and  Nordheim.4  These  authors  theorize  that  the  propellant  gas 
wall  shear  friction  factor  is  dependent  upon  only  the  gun  sur¬ 
face  roughness  considerations.  The  justification  for  elimina¬ 
tion  of  the  Reynolds'  number  as  a  parameter  is  based  on  order 
of  magnitude  estimates  of  boundary  layer  thickness  by  use  of 
laminar  boundary  layer  considerations.  The  recommended  form 
of  the  friction  factor  is  thus  dependent  upon  only  the  ratio 
of  surface  roughness  to  barrel  radius.  Consequently,  the 
friction  factor  is  assumed  to  be  independent  of  space  or  time 
within  a  given  gun  barrel.  Reynolds'  analogy  is  subsequently 
used,  and  the  heat  transfer  coefficient  becomes  simply  pro¬ 
portional  to  gas  density,  velocity,  and  specific  heat.  Total 
calorimeter  data  have  subsequently  been  rationalized  in  terms 
of  the  value  of  the  friction  factor  that,  with  internal  bal¬ 
listic  considerations,  obtains  the  spatial  variation  of  heat 
load  to  the  gun  barrel  derived  from  a  single  shot.  Example 
values  of  experimental  friction  factor  ( C^/ 2  =  Tw/pV2)  that 

were  reported  vary  from  ,0011  to  .0035.  Geidt5  assumes  a 
value  of  ,002  and  finds  that  his  measured  heat  flux  is  pre¬ 
dicted  generally  within  about  a  factor  of  2.  Other  writers 
have  interpreted  pressure  gradients  within  the  gun  barrel 
in  an  attempt  to  evaluate  wall  shear  for  the  application  of 
Reynolds'  analogy  for  heat  transfer. 

Another  approach  for  correlation  of  experimental  data 
is  based  on  the  Di ttus-Boetter 6  relation  for  steady,  fully 
developed,  turbulent  pipe  flow.  This  relation  is  also  judged 
to  be  inaccurate  in  several  references.  Cornell  Aeronautical 
Laboratory7  proposed  a  combined  analytical -experimental 
approach  based  on  steady,  fully  developed,  pipe  flow  concepts. 

The  state  of  the  art  in  unsteady  boundary  layers  and 
turbulent  models  is  quite  limited.  A  symposium8  was  held  on 


2 


unsteady  boundary  layers  at  Laval  University  (1971)  under  the 
auspices  of  International  Union  of  Theoretical  and  Applied 
Mechanics.,  However,  their  proceedings  are  still  in  press. 

Patel  and  Nash9  discussed  solutions  of  unsteady  two-dimensional 
incompressible  turbulent  boundary  layer_ equations  by  explicit 
finite-difference  techniques  Akamatsu10  pointed  out  some 
kinds  of  unsteady  boundary  layers  induced  by  shock  waves  in  a 
shock  tube.  Woods11  identified  some  industrial  problems  (such 
as  pulse  turbine,  rec  ipr ocati ng  engine,  emergency  blowdown  of 
a  chemical  plant  autoclave  system,  high-speed  train  entering 
a  tunnel,  and  exhaust  system  of  an  internal  combustion  engine) 
associated  w<th  unsteady  boundary  layers  Foster12  solved 
unsteady  isothermal  turbulent  boundary  layers  with  several 
approximations  by  the  integral  method  and  the  method  of  char¬ 
acteristics.  Anderson  and  Dahnr3  solved  unsteady  laminar 
boundary  layer  equations  by  the  integral  matrix  procedure. 
Shelton114  developed  a  solution  procedure  by  combination  of 
integral  methods  and  finite-difference  methods  for  turbulent 
boundary  layers  that  are  in  compliance  with  Croco-Lees51  rela¬ 
tionship  for  temperature.  At  the  end,  the  Chi  1 ton-Col burn52 
analogy  was  used  to  compute  convective  heat  transfer  coeffi¬ 
cients. 

Dahm  and  Anderson15  formulated  an  analytical  boundary 
layer  procedure  based  on  the  compressible  time-dependent 
boundary  layer  momentum  integral  equation  by  the  simpler 
Croco-Lees  relationship  and  the  method  of  characteristics. 
Convective  heat  transfer  was  evaluated  based  on  the  Chilton- 
Colburn  analogy  of  the  energy  boundary  layer  to  the  momentum 
boundary  layer.  Since  the  momentum  and  the  energy  boundary 
layer  equations  are  dissimilar  in  an  accelerating  flow,  an 
approximate  solution  of  the  energy  integral  equation  is 
expected  to  yield  better  heat  transfer  results  than  applica¬ 
tions  of  the  Chil ton-Col burn  analogy  to  an  approximate  solu¬ 
tion  of  the  momentum  integral  equation 

The  solution  of  transient  heat  diffusion  through  gun 
barrel  walls  was  established  quite  satisfactorily  by  ana¬ 
lytical, :i  finite-difference*"'  and  f  i  n  i  te-e  1  ement1  e  5 1 9  >2  0 
techniques.  These  are  quite  good  for  the  purpose  of  estab¬ 
lishing  propellant  gas  convective  heat  transfer  coefficients. 

The  unsteady  free  convect’on  and  radiation  around  gun 
tubes  was  discussed.'-'  The  radiation  and  convection  contri¬ 
butions  were  of  the  same  order  of  magnitude.  The  estimations 
based  on  pure  convection  show  that  the  flow  around  the  gun 
tube  is  still  in  the  laminar  range.  Since  the  surface  tem¬ 
peratures  change  quite  rapidly  for  automatic  weapons,  the 
governing  time-dependent  nonlinear  partial  differential  equa¬ 
tions  with  three  independent  variables  were  solved  by  an  ex¬ 
plicit  finite-difference  scheme  The  stability  criteria  were 
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established  by  Von  Neumann  and  Dusinberre22  methods.  The  con¬ 
vective  heat  transfer  coefficients  can  vary  as  much  as  TOO  per 
cent  from  the  minimum  value  because  boundary  layers  are  thin¬ 
ner  on  the  lower  half  of  the  gun  tube  and  thicker  on  the  upper 
half  of  the  cylindrical  gun  tube. 

2.  STATEMENT  OF  PROBLEM 


The  present  investigation  concerns  primarily  the  formu¬ 
lation  and  the  solution  of  transient  viscous  compressible  flow 
on  the  bore  surface.  However,  this  is  affected  extensively  by 
unsteady  core  flow  and  unsteady  heat  diffusion  through  the  gun 
tube  due  to  boundary  conditions.  The  flow  characteristics  are 
unknown  for  gun  barrel  flows.  The  experimental  data  are  lack¬ 
ing  because  of  the  moving  bullet.  This  obstacle  may  be  over¬ 
come  provided  one  takes  advantage  of  the  similarities  between 
the  moving  bullet  (small  mass)  and  a  moving  shock  in  a  shock 
tube.  Therefore,  shock  tube  data  should  be  collected  and 
analyzed  for  possible  use  in  predicting  gun  barrel  flow  char¬ 
acteristics. 

As  the  propellant  gases  expand  behind  the  projectile,  a 
boundary  layer  forms  at  the  breech  end  and  thickens  as  the 
flow  proceeds  downstream.  An  unusual  feature  of  the  velocity 
boundary  layer  is  that  it  disappears  as  the  bullet  is  approached 
since  all  fluid  at  the  base  of  the  bullet  must  be  moving  at 
bullet  velocity.  Mathematically,  this  amounts  to  the  require¬ 
ment  of  an  additional  boundary  condition  at  a  downstream  loca¬ 
tion,  The  numerical  techniques  applied  to  most  boundary  layer 
problems  require  the  specification  of  profiles  at  the  upstream 
end  of  the  flow  and  allow  a  "marching"  along  the  flow  direction. 
For  the  usual  time-dependent  boundary  layer  problem,  an  initial 
condition  to  describe  the  boundary  layer  flow  at  time  zero  and 
boundary  conditions  as  functions  of  time  are  necessary.  No 
downstream  condition  is  added.  The  question  then  logically 
arises  as  to  how  the  boundary  conditions,  at  both  ends  of  the 
flow,  can  be  satisfied  in  any  one  analysis.  If  the  analysis 
is  carried  out  from  both  ends  of  the  flow,  the  results  may  not 
match  anywhere  in  the  middle  of  the  flow.  The  compatible  con¬ 
ditions  are  required  before  one  can  accept  the  results  in  the 
middle  of  the  flow. 

The  laminar  boundary  layer  becomes  unstable  if  the  Reynolds' 
number  becomes  sufficiently  high,  thus  small  disturbances  will 
be  amplified  causing  transition  to  a  turbulent  type  of  boundary 
layer.  For  a  flat  plate  with  zero  pressure  gradient,  the  laminar 
boundary  layer  has  been  experimentally  shown  to  be  quite  stable 
for  the  length  Reynolds'  numbers  Re  upward  to  about  80,000,  and 

A 

this  laminar  boundary  layer  can  extend  to  a  Reynolds'  number  of 


4 


several  minion  if  the  free-stream  turbulence  is  very  low 
and  if  the  surface  is  very  smooth.  For  engineering  calcula¬ 
tions  unless  other  Information  is  available,  transition  will 
be  assumed  generally  to  occur  in  the  200,000  to  500,000  range. 
These  figures  are  only  approximate  and  may  be  good  for  a 
smooth  surface  with  a  fair  amount  of  free  stream  turbulence. 

The  length  Reynolds'  number  Re  is  not  very  convenient 

A 

for  a  transition  criterion  since  it  is  based  on  a  constant 
free  stream  velocity  and  may  not  be  meaningful  if  it  is  al¬ 
lowed  to  vary  with  axial  coordinate  (x)  such  as  the  acceler¬ 
ating  flow  in  a  gun  barrel  In  such  circumstances,  it  is 
preferable  to  have  a  local  parameter  such  as  momentum  thick¬ 
ness  ( 6 m )  instead  of  x.  If  a  critical  Reynolds'  number  Rex 

of  about  360,000  is  chosen  as  transition  criterion  for  a  con¬ 
stant  free  stream  velocity,  the  equivalent  criterion  for 
accelerating  flow  becomes  Re-  =  0  664  v/Re"  =  398.4 

O  X 

The  Reynolds'  number,  based  on  local  distance,  does  not 
have  any  boundary  layer  characteristics,  whereas  the  Reynolds' 
number  based  on  momentum  thickness  does  represent  the  impor¬ 
tant  parameter  of  the  boundary  layer,  Since  transition  to  a 
turbulent  boundary  layer  is  dependent  strongly  upon  the  growth 
of  the  boundary  layer,  the  Reynolds'  number  based  on  momentum 
thickness  is  logically  considered  to  establish  transition 
criteria . 

The  rate  of  heat  transfer  f^om  the  hot  propellant  gases 
to  the  barre1  i$  controlled  by  uevelopment  of  the  boundary 
layers.  The  flow  >n  the  gun  barrel  boundary  layers  could  be 
laminar,  transit’onal  or  turbulent  m  nature.  The  type  of 
boundary  layer  at  a  particuiar  cross  section  at  any  instant 
need  not  be  the  same  as  at  another  instant.  Since  the  flow 
must  start  from  rest  and  must  also  satisfy  zero  boundary 
layer  thickness  at  the  bullet  base  because  of  the  scraping 
action  of  the  bullet,  laminar  flow  always  exists  in  some 
parts  of  the  gun  barrel  boundary  layers 

Flow  in  a  laminar  boundary  layer  will  eventually  become 
unstable  as  the  Reynolds'  number  is  increased.  The  boundary 
layer  thickness,  skin  friction,  and  heat  transfer  increase 
more  rapidly  in  turbulent  flow  than  in  laminar  flow.  The 
eddy  viscosity  is  the  dominating  mechanism  for  such  increases. 
The  boundary  layer  flow  can  be  turbulent  somewhere  in  the 
middle  of  the  flow  between  the  breech  and  the  bullet  base.  A 
transitional  region  should  exist  between  the  laminar  and  the 
turbulent  regions.  However,  because  of  limited  knowledge 
about  transit’onal  regions,  the  flow  will  be  assumed  to  change 
suddenly  from  laminar  to  turbulent  flow  at  a  time  and  place 


determined  by  the  well-known  laminar-turbulent  transition 
criteria  discussed  above.  Therefore,  an  analysis  of  the 
unsteady  boundary  layer  is  needed  for  laminar  and  turbulent 
boundary  layers. 

The  analysis  of  unsteady  compressible  boundary  layers  on 
the  bore  surface  is  one  of  the  most  difficult  problems  due  to 
the  limited  state  of  the  art  and  also  to  the  existence  of 
laminar,  transitional  and  turbulent  regimes  within  the  bound¬ 
ary  layer.  The  governing  equations  of  unsteady  compressible 
boundary  layers  are  a  system  of  nonlinear  partial  differential 
equations  of  parabolic  type  with  three  independent  variables. 
These  are  given  below: 

Conti nu i ty : 


If  +  37  <P“>  +  37  <p*>  -  0  I2-1) 

Momentum : 

p  If  +  If  +  |y  -  -  |f  ♦  [p<v>$]  (2.2) 


Energy: 


P  C, 


(31  + 

'  3 1 


3T 

3x 


+  V  fy>  =  fjf  +  u  If  +  P(v+£)(|f)2 


(2.3) 


Equation  of  State: 

P  (1  -  n)  =  RT  (2.4) 

Boundary  Conditions: 
y=o:u=o,  v=o,  T=  Tw(x,  t) 

y=CJ  :  u  =  u  i  ( x ,  t),  T  =  Tj(x,  t )  (2.5) 

x  =  x0  :  u  =  uu(y,  t),  T  =  Tu(y,t) 
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Dynamic  Viscosity: 


U  =  CTW 


(2.6) 


The  following  eddy  viscosity  (e)  model  may  be  used  for  turbu¬ 
lent  boundary  layers: 

+  a  /9-f7p 

y  =  - - — 


and 


^  vp 


e/ v 


iziiL o_ 

du+/dyf 


e/v  =  -  for  o  <  y+  <  5 

y+(i-^) 

e/v  =  - — —  -  1  for  5  <  y+  <  30 

y+(i-A-i  4. 

e/v  =  - p— e2 -  for  30  <  y'  <  °° 


(2.7) 


The  objective  is  to  obtain  the  dependent  variables  u,  v 
and  T  as  a  function  of  x,  y  and  t  subjected  to  the  boundary 
conditions  given  by  Equation  2,5.  This  is  discussed  in  sec¬ 
tions  3  and  4. 

3 •  THEORETICAL  ANALYSIS 

Various  methods  exist  for  the  solution  of  steady  boundary 
layer  equations.  The  classical  Von  Karman-Pohl hausen  integral 
method  is  popular  because  of  the  quickness  and  simplicity 
characteristics.  For  particular  free-stream  distributions  such 
as  flow  similarity,  the  partial  differential  equations  can  be 
reduced  to  ordinary  differential  equations  by  similarity 
variables.  At  the  end,  the  results  are  obtained  by  numerical 
integration.  Instead  of  solving  partly  analytically  and 
partly  numerically,  one  can  also  solve  partial  differential 
equations  of  boundary  layer  by  finite-difference  schemes.  As 
an  alternative  and  also  as  a  reduction  in  computational  times, 
one  can  use  the  method  of  weighted  residuals  for  the  solution 
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of  boundary  layer  equations.  The  last  approach  is  used  in 
the  present  investigation. 


The  dependent  variables  are  u,  v,  and  T.  The  indepen¬ 
dent  variables  are  x,  y,  and  t.  One  can  easily  reduce  one  of 
the  dependent  variables  such  as  v  by  introduction  of  a  stream 
function,  \ p.  The  equation  of  continuity  is  satisfied  auto¬ 
matically  if  the  velocity  components  are  denoted  by  the  fol¬ 
lowing  equations: 


where  pQ  represents  a  reference  density  for  nondimensional 
purposes. 


The  Howarth  and  Dorodnitsyn  transformations  among  others 
are  an  important  class  of  transformations  specifically  designed 
for  compressible  fluids.  The  purpose  of  these  transformations 
is  to  remove  the  density  from  some  of  the  boundary  layer  equa¬ 
tions  and  to  present  the  equations  in  a  form  closely  resembling 
the  incompressible  boundary  layer  equations.  After  these  inves¬ 
tigations  have  been  pursued,  the  transverse  coordinate  is  modi¬ 
fied  to  absorb  the  compressibility  effect.  The  following  equa¬ 
tions  can  be  obtained  by  the  specializing  of  Equations  2.2  and 
2.3  to  the  boundary  layer  edge  conditions  (y  *  °°): 


3u 

ar  +  p! 


3  u  j 
3x“ 


CP 


,3T, 
‘  3t 


+  u 


3  T  ; 
i  3x" 


)  =  i£+u  1r 

'  3t  +U1  3x 


(3.2) 


The  momentum  equation  is  reduced  to  the  following  form 
if  Equations  3.1  and  3.2  are  utilized  in  addition  to  the  identity 


14.  =  JL 

po  9y 
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(3.3) 


3  1 3^  \  .  3i|*  3  1 3  ifj  \  3^  3  x  -v  3y  3  >3ili\ 

at  (IF  +  ly  17  ( IF  -  37  ly  {W  ~  3t  ly  ( W 


p  3u 
i  _ i 

p  3t 


+ 


P 

i 

P 


3u 


i  3x 


+  ^  Etv+e) 


3 

37 


The  pressure  gradient  terms  in  the  energy  equation  can 
be  expressed  in  terms  of  free-stream  quantities: 


iR  +  u  iB.  =  o 

3t  u  3x  p 


3T 

C  (^ 

i  P 


3t 


+  u 


3T 

3^)  -  (  u  -  u,>  0, 


3u 


(3.4) 


This  equation  is  obtained  by  use  of  Equation  3.2. 

A  new  dependent  variable  can  now  be  conveniently  intro¬ 
duced  for  temperature  difference  as 


0  =  (T  -  T  ) 
w 


(3.5) 


Substitution  of  Equations  3.1,  3.4,  and  3.5  into  the 
energy  Equation  2.3  yields  the  following  equation  for  the 
variable  0: 


3i  ^Iws 
3y  3x  1 


If]  *  MO 


iii 

syz 


3T 

'p  ^3t 


+  u 


3T  p  3u 

3^)  -  (u  -  u,)  -f 


+  U 


3u 

IT 


)  (3.6) 


Further  analysis  of  Equations  3.3  and  3.6  will  be  conducted 
in  the  remainder  of  this  section. 
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3.1  Method  of  Weighted  Residuals 


The  method  of  weighted  residuals  unifies  many  approxi¬ 
mate  method"  of'the  solution  of  differential  equations  that 
are  In  use  day.  For  unsteady  heat  conduction,  the  finite- 
element  method  and  the  usual  finite-difference  method  were 
shown2 3 j 18 > 19  to  be  special  instances  of  the  method  of 
weighted  residuals  with  a  general  weighting  function.  In 
References  24  and  25  in  a  more  formal  way,  variational  prin¬ 
ciples  proposed  by  several  authors  are  all  applications  of 
the  method  of  weighted  residuals. 

An  excellent  review  (187  references)  on  the  method  of^ 
weighted  residuals  was  presented  by  Finlayson  and  Scriven.25 
In  literature,  this  technique  is  commonly  called  the  error 
distribution-principle.  Usually,  the  method  of  weighted 
residuals  is  used  to  reduce  by  one  the  number  of  independent 
variables  in  any  system  of  partial  differential  equations. 
However,  some  exceptions  exist.  For  example,  Kaplan  and 
Bewick26  and  Kaplan  and  Marlowe27  used  the  method  of  weighted 
residuals  to  reduce  the  number  of  independent  variables  from 
four  to  two.  When  this  procedure  is  combined  with  other 
numerical  methods,  significant  reductions  in  computer  time 
to  obtain  a  solution  is  apparent. 

The  basic  steps  that  are  involved  in  any  application 
of  the  method  of  weighted  residuals  are  given  below.  Equation 
3.3  can  be  abbreviated  as 

^  (x,y,t)  =  0  (3.7) 

t 


Let  the  following  equation  be  an  approximate  so^tion 
chosen  to  represent  \ p.  The  selection  or  approximating 
functions  <1^,  if>2 ,  t|>  will  be  discussed  later.  However,  these 
are  usually  chosen  to  satisfy  any  known  boundary  or  initial 
conditions  with  respect  to  the  independent  variable  to  be 
removed. 


i>-i>  =  i>!  (Bj(x,t),y)  +  ( B  2  (x,t)  ,y)  +  i|>3  (B3  (x  ,t)  ,y)  (3.8) 


Substitution  of  the  approximate  solution  for  in 
Equation  3.7  yields  the  following  relationship  for  the  residual 
error : 


i^1(B1(x,t)  ,y)  +  ip2  (B2  (x  ,t)  ,y)  +  ^  3  ( B  3  ( x  ,  t )  ,y)  = 
R(B1 ,B2 ,B3 ,y) 


(3.9) 
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The  functions  B1}  B2 ,  and  B,  are  to  be  determined  such 
that,  in  some  sense,  the  residual  error  approaches  zero. 
This  objective  can  be  accomplished  by  multiplication  of  the 
approximate  Equation  3.9  by  a  set  of  three  linearly  inde¬ 
pendent  weighting  functions  (Wlt  W2 ,  W3)  that  are  dependent 
upon  B's  and  y.  The  weighted  residual  error  is  then  inte¬ 
grated  over  7  between  o  and  *>,  and  the  result  is  set  equal 
to  zero. 


i 


6  ♦  s 


R(B1 ,B2 ,B3 ,y)  W1(B1(x,t)y)  dy  =  0 


o 


R(Bi»B2»B8,y)  W2(B2(x,t),y)  dy  =  0 
o 


R(B1,B2,B3,y)  W3(B3(x,t),y)  dy  =  0  (3.10) 

o 


The  resulting  equations  contain  the  unknown  functions  Bx,  B2, 
and  B 3  with  independent  variables  only  x  and  t.  Thus,  the 
objective  of  method  of  weighted  residuals  is  achieved  by  re¬ 
moval  of  the  dependency  of  one  of  the  independent  variables 
(y).  In  return,  a  set  of  equations  (Equation  3.10)  is 
derived  for  the  determination  of  Bx,  B2 ,  and  B,.  The  approx¬ 
imate  solution  (Equation  3.8)  need  not  be  limited  to  three 
terms.  In  fact,  increasing  the  number  of  terms  in  the 
approximate  solution  increases  the  accuracy.  However,  three 
terms  may  be  enough  for  engineering  accuracy. 

3.1.1  Approximate  Solution 

The  choice  of  approximating  functions  in  an  assumed 
solution  form  is  crucial  in  applying  the  method  of  weighted 
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residuals.  No  way  presently  seems  to  be  available  to  select 
the  approximating  functions  systematically  for  all  problems. 
Selection  of  approximating  functions  remains  somewhat  de¬ 
pendent  upon  the  user's  intuition  and  experience,  and  this 
is  often  regarded  as  a  major  disadvantage  of  method  of 
weighted  residuals.  Crandall28  stated  that  the  variation 
between  results  obtained  by  application  of  different  weighting 
functions  to  the  same  approximate  solution  is  much  less 
significant  than  the  variations  that  can  result  from  the 
choice  of  different  approximate  solutions.  Sometimes,  one 
can  obtain  the  exact  solution  by  use  of  method  of  weighted 
residuals  if  the  right  choice  is  made  in  the  selection  of 
the  approximate  solution  form. 

The  selection  of  approximating  functions  is  still  a 
definite  problem  even  though  the  method  of  weighted  residuals 
has  existed  for  more  than  50  years.  Several  sets  of  approx¬ 
imating  functions  that  satisfy  boundary  conditions  are  per¬ 
missible,  and  to  choose  one  as  the  best  is  impossible.  The 
usual  approach  of  selecting  the  approximating  functions  is 
based  on  satisfying  the  governing  differential  equation  on 
the  boundary  in  addition  to  satisfying  the  boundary  con¬ 
ditions.  However,  Lowe29  established  the  form  of  the  approx¬ 
imating  function  in  the  following  manner: 

If  integration  in  the  unbounded  domain  is  to  be  accom¬ 
plished,  then  the  integral  must  exist  for  large  values  of 
the  argument.  Therefore,  the  asymptotic  expansion  or  vari¬ 
ation  of  the  dependent  variables  should  be  established  for 
large  values  of  the  space-like  variables.  This  primarily 
means  that  the  exponential  order  of  the  dependent  variables 
for  large  values  of  the  space-like  variables  should  be  de¬ 
termined.  The  approximating  functions  should  be  chosen  to 
exhibit  that  some  exponential  order  and,  if  possible,  the 
complete  asymptotic  order.  At  the  end,  the  approximating 
functions  should  be  made  to  satisfy  the  boundary  conditions 
and,  in  addition,  these  approximating  functions  should 
satisfy  the  governing  equation  at  the  boundary.  In  effect, 
the  residual  will  start  and  end  at  zero.  The  residual  in 
the  interior  of  the  domain  will  then  be  adjusted  by  some 
error  distri but  ion-principle. 

This  is  the  approach  used  in  the  present  investigation. 
Following  this  approach,  one  can  see  that  the  error  function 
appears  to  be  a  fundamental  form  for  approximating  functions 
for  forced  flow  boundary-layer  problems.  Therefore,  the 
following  approximate  solution  forms  were  respectively  chosen 
for  the  dependent  variables  u  (or  <|0  and  0. 
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% 


^-  =  |i  =  erf  (B,y)  +  ft2  erf  (B2y)  + 


|-  =  <Sj  erf  ( A j y )  +  <$2  erf  (A2y)  +  •••  (3.11) 


Where  A's  and  B's  are  unknown  functions  of  the  other  two  in¬ 
dependent  variables  x  and  t.  The  following  must  be  true  to 
satisfy  the  boundary  conditions  for  large  space-like  variable. 


ft  +  ft  +  •  •  •  =  1 
1  2 

62+<52  +  ***  =  l  (3.12) 


3.1.2  Weighting  Functions 

With  the  weighting  functions,  various  criteria  that 
are  available  are  determined  for  the  distribution  of  error 
in  the  method  of  weighted  residuals.  Basically,  five  criteria 
are  available.  The  origin  of  these  techniques  and  corres¬ 


ponding  weighting 
Method 

Col  1 ocation 

Gal erki n 

Method  of  Moments 

Method  of  Least 
Squares 

Subdomai n 


functions  are  given  in 
Origin 

Frazer,  Jones  and 
Skan30 

Gal erkin3 1 
Kravchuk32 

P  i  c  o  n  e 3  3 

Biezeno  and  Koch34 


the  following  table: 


Weighting  Function 


Divac  -  Lelta 

(Equation  (3.8) 

913  i  =  1  ,2,3 

any  complete  set  of 
functions 

(i  ,y,yz •••) 

(Equation  (3.9) 

9  i 

Unity  in  that  subdomain 
and  zero  elsewhere 
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To  name  a  particular  criterion  as  a  best  one  is  impossible. 
The  choice  may  depend  upon  the  problem  to  be  solved,  the 
assumed  approximate  solution  form,  the  number  of  terms  in 
it,  and  also  the  parameter  of  interest  in  that  problem. 

The  following  example  concerns  the  Blasius  problem  of  forced 
flow  over  a  flat  plate  [fm  +  ff"/2  =  0,  f(0)  =  0,  the 
assume'  solution  form  f'  =  erf  (Bn)]. 


Dimensionless  Dimensionless  Displace- 


Wall 

Shear 

ment 

Thickness 

Method 

f  "  (0) 

%  error 

* 

%  error 

Exact 

.33206 

0 

1.7208 

0 

Galerkin 

.3532 

6.29 

1 .803 

4.66 

Method  of  Moments 

.3631 

9.33 

1.753 

1 .87 

Subdomai  n 

.  3631 

9.33 

1.753 

CO 

Col  location 

.  3927 

18.25 

1.621 

5.81 

The  results  by  use  of  the  method  of  least  squares  is  unavail¬ 
able  because  of  the  possibility  of  imaginary  results  for 
similar  classes  of  problems.  Moreover,  quite  complex  weighting 
functions  will  result  by  this  technique.  The  parameter  of 
interest  for  heat- transfer  purposes  is  that  of  wall  shear. 

The  Galerkin  method  resulted  in  least  error  for  wall  shear. 
Finlayson  and  Scriven2if  solved  a  convective  transport  problem 
and  concluded  that  the  Galerkin  method  predicted  exactly  the 
same  expression  for  Nusselt  number  other  than  a  proportionality 
constant.  In  the  instance  of  the  Galerkin  method,  the  number 
of  terms  in  an  assumed  approximate  solution  did  not  yield 
significant  differences  in  heat-transfer  results.  These 
characteri sties  provide  a  more  desirable  method  for  coupled, 
nonlinear,  and  complex  partial  differential  equations.  From 
the  examples  cited,  the  selection  of  criteria  is  evidently 
unimportant.  However,  one  should  carefully  consider  the 
selection  of  functions  in  the  assumed  approximate  solution 
form. 


On  the  basis  of  the  examples  citedabove  and  the  state¬ 
ments  by  Ames,35  Finlayson  and  Scriven,25  Schetz,36  Snyder, 
Spriggs,  and  Stewart,3’  and  Kaplan,30  the  Galerkin  method 
is  chosen  for  the  present  investigation. 
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No  evidence  is  available  to  prove  that  the  method  is 
a  superior  technique  for  general  problems.  However,  the 
Galerkin  method  was  related,  before,  to  variational  cal¬ 
culus,  and  several  proofs  of  convergence  have  been  made  for 
specific  applications. 

The  weighting  functions  (Galerkin)  for  assumed  solution 
forms  (Equation  3.11)  can  be  written  as 


2_2 

y 


2 _ 2 

y 


v-A‘v 


The  first  two  weighting  functions  are  meant  for  the 
momentum  equation,  whereas  the  last  two  pertain  to  the  energy 
equation . 

3.1.3  Integral  Equations 

The  analysis  mentioned  under  the  method  of  weighted 
residuals  can  now  be  performed.  The  approximate  solution 
forms  (Equation  3.11)  and  the  weighting  functions  (Equation 
3.13)  are  already  obtained.  The  objective  of  this  section 
is  to  explain  the  transformation  of  the  dependent  variables 
from  and  6  to  B1}  B2,  A1S  and  A2.  The  objective  also  in¬ 
volves  the  removal  of  the  transverse  independent  variable  y 
from  the  transformed  governing  Equations  3.3  and  3.6.  The 
stream  function  ip  and  some  of  its  derivatives  must  be  evalu¬ 
ated  before  one  can  apply  the  method  of  weighted  residuals 
to  the  momentum  Equation  3.3. 
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Combining  all  terms  of  the  Momentum  Equation  and  forming  the  residual,  one  obtains 
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Multiply  Equation  3.22  by  the  weighting  function  Ji, >cc, /i} e  and  integrate  over! 
analytically.  Those  integrals  not  readily  obtainable  are  solved  analytically  in  Appei 
Equation  3.22  above,  one  obtains 
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Formation  of  the  residual  equation  for  the  Energy  Equation  3.6  is  analogous  to  th< 
residual.  Analogously,  2  Energy  Equations  are  then  formed  by  multiplying  the  res' 
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esslary  to  perform  the  analysis  similar  to  the  above  on  Equation  3.6. 
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|Energy  Equation  3.6  is  analogous  to  the  formation  of  the  Momentum  Equation 
[are  then  formed  by  multiplying  the  residual  Energy  Equation  by  its  two 
p  ^  and  (2//IF)  5a  .  As  this  expansion  becomes  very  lengthy, 
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8xc,  r\P  +  R  Tw 


~  fft  '  1  dt  Re,<-aP+HTw  Al  (A?  +  B£)‘7*  *-Tr  ’  '  0a  RG.-^P 


I  p,  a  0xc.,  n.  P+-  RTw  Bi-dj  8a  2. 

^  ex  RG.+- ^p+RTw  A1(a?+  b?),/sL~  irTir 


2.  a  a  Gxx.i _ Rji-x  Si  8 a  _  F _ A 1 

W  1  *  0a  R0,  +•  *’i.P+'  RTw  L  Aa  (Aj*,+ 


1  8a  j_  “1/  A,  \~]  2.  -1  *  ©aa.,  RilaSa  f"  i  "*/  8a 

+  AUAZ  +  Biy'*-  WaS  +  M)1'*  JJ  ~  -fir  ’  d-x  R0,  +  aP  +  RTw  LTTa?  '  V^A, 


J  ^  1  1  a  ^•W-i  17  P  +  RTw  Ba-Fl-aSa  ,  i  ©xi.,  RS,Sa  A, 

01  '  d«“  RQ,+  ^P  +  RTw  W  11  di-  RQ.-^P+RTw'A^Uf  +  Ai 


1^0*  0x<-,  17 P  +  RTw  )  a  RS>8 a  A,  I  /  £ 

vRF  A|  >LL|  dt  R  0,  +  17  P  +  RTw  J5r  ’  'doc  R0,+  ^P+  RTW  Aj(A?+  Aiy7*"  2  J  ir 


.  1  r  a  uf  dJU.,  rP^RTw  -)  / 1  nr  a  1 

d*  "RQ.t^PtRTv,  J  /  4-  7  IT  i4~A| 

Thereby,  the  objective  stated  in  the  beginning  of  this  Section  has  been  achieved. 
Equations  3.24,  3.25,  3.28  and  3.29.  These  are  still  partial  differential  equation 
independent  variables.  The  independent  variable  x  will  be  eliminated  in  the  next  S 
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3.2  Method  of  Lines 


The  Method  of  Lines39  is  a  technique  commonly  used 
to  solve  partial  differential  equations  on  general-purpose 
analog  computers.  When  two  independent  variables  exist, 
say  x  and  t  as  in  the  present  problem,  one  independent 
variable  is  discretized  and  the  other  is  permitted  to  re¬ 
main  continuous,  usually  with  respect  to  time  t.  The 
partial  differential  equation  is  thereby  converted  to  a 
system  of  ordinary  differential  equations.  Genera  1 -purpose 
analog  computers  are  intrinsica i ly  capable  of  handling  only 
ordinary  differential  equations. 

The  usual  technique  of  solving  partial  differential 
equations  on  a  digital  computer  involves  the  approximating 
of  derivatives  with  respect  to  all  independent  variables 
by  finite  difference  expressions.  The  resulting  algebraic 
relationships  are  then  solved  by  matrix  methods  at  the  grid 
points  of  the  discretized  region  of  interest.  Another  possi¬ 
bility  for  the  digital  computer  solution  is  to  convert  to  a 
system  of  ordinary  differential  equations  as  in  the  Method 
of  Lines  and  then  to  solve  the  system  by  standard  techniques 
such  as  Runga-Kutta  or  Predictor-Corrector  methods  available 
for  ordinary  differential  equations.  This  is  the  approach 
that  will  be  used  in  the  present  investigation.  The  estab¬ 
lished  numerical  techniques  witn  automatic  step-size  control 
and  automatic  error  control  for  solving  ordinary  differential 
equations  can  be  used.  Moreover,  Smith  and  Clutter40  solved 
several  boundary  layer  problems  by  the  method  in  conjunction 
with  high-speed  digital  computers.  Koob  and  Abbott113  solved 
the  unsteady  incompressible  boundary  layer  equations  without 
pressure  gradients  by  use  of  the  Method  of  Lines  and  the 
method  of  weighted  residuals.  Hick?  and  Wei“2  solved  the 
unsteady  one-dimensional  heat  diffusion  equation  by  the 
Method  of  Lines.  This  approach  yields  results  with  less 
computer  time  than  the  explicit  or  implicit  finite-difference 
methods , 

The  basic  assumption  of  the  Method  of  Lines  is  that  con¬ 
tinuous  functions  such  as  B19  B2,  A!}  and  A2  and  one  of  their 
derivatives  such  as 

9B  9B  _  9A  9  A 

and  -g— 1 -  can  be  approximated  in  terms  of 

several  new  functions  such  as  Bj^),  Bx (x2 ) , • • *BX (x  ) , 

B2 (x  x ) ,  • •  •  B2 (xn ) ,  A1(x1),*‘*A1(xn),  A  2 ( x , ) ,  •  •  •  A  2 ( x  n ) , 
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B  (x  )-B  (x  )  •  B  ( x  ) -B  (x  ,)  B  (x  )-B  (x  ) 
i  2 _ i  x  _ i _ n _ i  n-  i  2  2 _ 2  x 


X  -X 
2  1 


X  “X  , 

n  n-  i 


V  —  V 
2  A  1 


.  A,(xa)-A,(x,1' 

xn~xn-l  ’  x2-x. 

A,(x,>-W  A2(xni-A2(xn-1> 


x2-Xi 


x  -x„  , 
n  n- 1 


A  (x^J-A  (x  ) 
i  n  i  -  n  - 1 


Wi 


Here,  the  field  of  interest  is  assumed  to  be  between 
x1  and  x  .  The  derivative  of  continuous  functions  is  written 
in  a  backward  difference  form.  If  the  information  above  is 
incorporated  into  Equations  3.23,  3.24,  3.28,  and  3.29,  a 
system  of  ordinary  differential  equations  (4(n-l))  results 
with  time  as  the  only  independent  variable.  The  locations  xx 
to  x  need  not  be  at  equal  intervals.  The  solution  of  the 
resulting  equations  will  be  discussed  in  the  next  section. 

3 . 3  Boundary  Layer  Parameters 

The  objective  of  the  present  investigation  is  to  obtain 
the  solution  of  unsteady  compressible  boundary  layer  equations 
stated  in  Section  2.  The  end  results  are  in  the  form  of 
velocity  and  temperature  profiles  as  a  function  of  the  in-  • 
dependent  variables  x  and  t.  Once  these  profiles  are  deter¬ 
mined,  any  other  parameter  of  the  boundary  1 ayer  can  be 
easily  obtained.  The  derivation  or  evaluation  of  these 
parameters  is  given  below: 

Heat  Transfer:  The  heat  transfer  at  the  wall  by  con¬ 
duction  is  given  by 


Qw  =  -(K5y)y.0  -  '(W 


(3.30) 


Instead  of  introducing  a  model  for  thermal  conductivity 
K  which  is  a  function  of  temperature,  another  form  of 
Equation  3.30  may  prove  to  be  useful. 


n  =  _  rllJE.  £_  Hi 

w  p0  a yJy=0 


(3.31 ) 
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2u  C  p  0 

<L  =  -  -- 

Pr  p  /rr 


'w 


(3.32) 


The  convective  heat  transfer  coefficient  as  defined 
by  Equation  3.30  becomes 


Shear  Stress:  Assuming  a  Newtonian  fluid,  the  shear 
stress  at  the  wall  in  Cartesian  coordinates  is 


This  can  be  written  in  terms  of  new  variables  as 


Cr  = 


W 


4V» 


^  7P  !  u  t  2  /PW. 


(  ^ j  B j ® 2  ^ 


(3.36) 


M 


The  following  final  form  Is  obtained  by  use  of 
Equation  3.11. 


s 

$ 

1 

I 

>* 

4 


2u  C  p 

h  =  — (6 1AI+6a  A2) 

Pr  p  /rr 
o 


or 


Nuw  ■7r(*.wI) 

/IT  0 


or 


St  =  - 


'w 


C  0  p  u  n 

p,w  ihi  i  /rrp  pjUjPr 


2ywpw 

w  w  (61A1+62A2) 


(3.33) 


Tw  =  (^> 


(3.34) 


y=0 


x  =  ^L(8  B  B  ) 
'  1  1  2  2  ' 


becomes 


w  /?  po 


Finally,  the  dimensionless  skin  friction  coefficient 


(3.35) 
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Displacement  thickness  (6,):  The  boundary  layer  di.s- 

nt  fh  i  r  V  noc  <  •  i  c  Tla-finorf  •  ac  •  •• 


placement  thickness -is 'defined  -  as 


sd  ■ 


(1-  77—)^ 


P  u 

1 


(3.37) 


Equation  3.37  becomes,  in  terms  of  variables  in  the 
present  analysis, 


6,  = 


[p  (M  +  ^Iw  +  ) 

LFov  p  p  ' 


TT-1  dy 


(3.38) 


The  following  final  form  was  obtained  after  substituting  Equation 
3.11  and  integrating  analytically: 


5d =  +  <6-^)s^  +  »o<-r +n)6 

-  —  >  +  8,  («  -  — )]  (3.39) 

pi  1  Bj/?  2  B2/? 


The  displacement  thickness  indicates  the  distance  by 
which  the  external  streamlines  are  shifted  outward  owing  to 
the  formation  of  boundary  layer. 

Momentum  thickness  (<5„): 

- m 


m 


_£u_(l 

PiV 


u_ 

u 


•)  dy 


(3.40) 
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This  parameter  is  useful  in  the  determination  of 
laminar-turbulent  transition  and  also  indicates  a  measure  of 
loss  of 'momentum  in  the  boundary  layer. 

Energy-Dissipation  thickness  ( 6 eci ) : 


(3.41) 


The  parameter  above  indicates  a  loss  of  mechanical 
energy  occurring  in  the  boundary  layer. 

Enthalpy  thickness  (6^): 


Mi-  <T-  -  1)  dy 


P  u 
M 1  1 


_  0 


—  I'¬ 
ll  lT 
i  i 


e 


■1)]  dy 


(3.42) 


Velocity  thickness  ( <5  ) : 


6 


u 


-)  dy 


(3.43) 


'  A 


I 


32 


A 


This  integral  cannot  be  evaluated  unless  y  is  written 
in  terms  of  y  by  Equation  3.1.  That  is. 


* 


y  =  p. 


(—  +  -  T  +  n)  dy  - 
'  p  p  w  u  J 


Rp.e 


-—•[djCy  erf  (A xy )  +  e~ Aj2y  -1 


+  <5  (y  erf  (A2y)  + 

a2  /? 


A,  /F 

-A2y2  ,  RT„ 

- ^)]  +  P0  (-f  +  1)  7  (3.44) 


Even  though  the  integrals  in  Equations  3.40,  3.41,  3.42, 
and  3.43  can  be  evaluated  analytically,  this  is  not  attempted 
here  because  of  the  tedious  derivations  involved.  However, 
one  can  easily  evaluate  these  integrals  by  Simpson's  rule  of 
integration. 


4.  NUMERICAL  ANALYSIS 

The  unsteady  compressible  boundary  layer  problem  stated 
in  Section  2  contains  a  system  of  nonlinear  parabolic  partial 
differential  equations  with  three  dependent  variables  (u,  v,  and 
T)  and  three  independent  variables  (x,  y  and  t).  The  introduc¬ 
tion  of  the  stream  function  ip  eliminated  one  of  the  dependent 
variables,  namely  v  from  the  unknown  list.  The  pressure  and 
the  free-stream  velocity  are  to  be  provided  either  from  experi¬ 
ments  or  from  unsteady  core  flow  analysis  to  close  the  system 
of  equations.  The  variable,  density,  can  be  expressed  in 
terms  of  pressure  and  temperature  by  means  of  an  equafion  of 
state.  The  viscosity  is  considered  as  a  function  of  tempera¬ 
ture. 


The  elimination  of  the  dependent  variable  v  introduced  a 
new  dependent  variable  ip  to  replace  the  original  dependent 
variables  u  and  v.  The  temperature  T  is  replaced  by  a  new  de¬ 
pendent  variable  6.  The  dependent  variables  i|>  and  0  are  still 
a  function  of  three  independent  variables  x,  y,  and  t.  The 
method  of  weighted  residuals,  in  particular,  the  Galerkin 
method,  introduced  the  dependent  variables  Bx  and  B2  ro  replace 
ip  and  A  and  A2  to  replace  0. 
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These  dependent  variables  contain  only  the  independent 
variables  x  and  t  (Equations  3.23,  3.24,  3.28  and  3.29. 

The  Method  of  Lines  made  possible  the  transformation  of 
these  partial  differential  equations  into  ordinary  differ¬ 
ential  equations  with  time  as  the  only  independent  variable. 
However,  this  transformation  is  achieved  only  at  the  expense 
of  introducing  additional  unknown  dependent  variables,  a 
set  of  Bj's,  B 2 ' s ,  Aj's,  and  A2's.  This  set  is  dependent 
upon  the  number  of  discretized  x  stations.  In  a  typical 
example  considered  in  Section  5,  eleven  x  stations  are  chosen. 
Since  a  boundary  initial-value  problem  has  been  transformed  to  an 
initial-value  problem  and  thus  requires  specification  of  Bls 
B,,  A,,  and  A?  at  the  first  station  as  a  function  of  time, 

40  ordinary  differential  equations  [4  times  (11-1)]  must  be 
solved  for  that  typical  example  to  obtain  the  engineering 
accuracy.  The  number  of  equations  will  increase  further  if 
one  increases  either  discretized  x  stations  or  the  number  of 
terms  in  the  assumed  approximate  solution  forms  (Equation  3.11). 
The  application  of  Method  of  Lines  as  explained  in  Section  3.2 
on  Equations  3.23,  3.24,  3.28,  and  3.29  yields  the  following 
equati ons : 


B  !  I  X  2  ) 
B2(x2) 

A  j ( xa  ) 

A2(x2) 


fl,2(Bl(x2) 
^2  »2 (B  j (X2 ) 
g1>2(Bi(x2) 
02 .2  <B1 <X2 ) 


Mx„> 

Mxn> 
A 2<X„) 


’  f2,n<Mxn> 
=  92,n(B1<xn) 


B  2  ( x  2 ) » A 1 ( x  2 ) »A2(x2)) 
B2(x2),A1(x2),A2(x2)) 
B2(x2),A1(xa),A2(x2)) 
B2(x2),A1(x2),A2(x2)) 


B2(xn),A1(xn),A2(xn)) 

B2<xn>-A1(xn) >A2(xn)) 

B2<xn>’Mxn)’<'2(xn)) 

B2(xn).Al(xn),A2(xn)) 


(4.1) 


Where  the  dot  denotes  differentiation  with  respect  to  time,  t. 
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The  functions  f's  and  g's  are  the  same  as  the  right  sides 
of  Equations  3.23,  3.24,  3.28,  and  3.29  with  the  exception 
of  discretization  of  B's  and  A's  and  their  derivatives. 

The  system  of  equations  cited  above  may  be  solved 
either  by  standard  Runga-Kutta  techniques  or  by  Predictor- 
Corrector  methods.  Since  the  functions  in  Equations  4.1  or 
in  Equations  3.23,  3.24,  3.28,  and  3.29  are  complex  and  in¬ 
volve  many  tedious  computations,  some  computer  time  may  be 
saved  by  use  of  Predictor-Corrector  methods.  However,  these 
predictor-corrector  methods  are  not  self-starting.  Thus, 
initialization  by  '’■'•Her  techniques  such  as  the  Runga-Kutta 
methods  is  desirable.  Since  the  available  time  is  limited 
and  since,  in  the  author's  experience,  the  Runga-Kutta  methods 
are  more  stable  and  more  easily  workable,  the  standard  fourth 
order  Runga-Kutta  scheme  is  used  for  the  entire  investigation. 

A  fifth  order  Runga-Kutta  integration  scheme  was  also 
considered  to  improve  the  accuracy.  The  functions  must  be 
computed  six  times  instead  of  four  times  in  a  fourth-order 
scheme  for  each  time  step.  The  additional  computations 
introduce  more  errors.  Moreover,  Milne1*3  states  that  the 
pursuit  of  greater  accuracy  by  derivation  of  formulae  of 
higher  order  is  a  "losing  game."  The  formulae  rapidly  be¬ 
come  formidable  complexity,  and  the  large  number  of  sub¬ 
stitutions  for  each  time  step  increases  computer  time  sig¬ 
nificantly  for  a  slight  increase  in  accuracy.  Therefore, 
the  fifth  order  Runga-Kutta  method  is  not  used  ultimately. 

Since  the  growth  of  the  boundary  layer  is  faster  near 
the  leading  edge  and  slower  downstream,  the  introduction 
of  a  variable  step  size  for  Ax  is  sometimes  convenient. 

This  can  be  accomplished  easily  without  variable  step  sizes 
in  numerical  computations  by  means  of  the  following  trans- 
f ormati on : 


Let  x  =  /x/’L  (4.2) 


where  L  is  the  length  on  the  plate  up  to  the  end  of  the  flow 
field  under  investigation.  Since  the  variable  x/L  varies 
from  0  to  1 ,  the  equal  step  size  of  0.1  can  be  obtained  for 
x/L  of  0,  0.01,  0.04,  0.09,  0.16,  0.25,  0.36,  0.49,  0.64, 
0.81,  and  1.0  (11  Stations).  Thus  one  can  obtain  eight 
stations  for  the  first  half  of  the  flow  field  and  three 
for  the  remaining  portion.  This  is  achieved  without  a 
variable  step  size  in  the  actual  computer  program.  A  few 
numerical  examples  will  be  considered  in  Section  5. 
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5. 


SAMPLE  PROBLEMS 


Not  much  literature  is  available  on  unsteady  boundary 
layers  even  though  hundreds  of  investigators,  throughout 
the  world,  are  working  on  boundary  layers.  This  is  es¬ 
pecially  true  for  compressible  flow  with  pressure  gradients. 

No  known  example  exists  that  can  be  used  directly  as  a  test 
case.  Koob  and  Abbott41  solved  an  unsteady  incompressible 
boundary  layer  problem  on  a  semi-infinite  flat  plate  with 
zero  pressure  gradients.  A  similar  problem  was  also  con¬ 
sidered  by  Hall.44  This  analysis  is  based  on  implicit 
finite-difference  methods.  This  example  and  the  results 
will  be  discussed  in  Section  5.1. 

Numerous  studies  were  conducted  by  Mirel s45 >46 >47 >48 >49 
for  shock  tube  flow.  Similarities  are  present  between  a 
shock  tube  flow  and  a  gun  tube  flow.  Indeed,  these  are 
identical  with  the  limiting  case  of  bullet  mass  approaching 
zero.  The  growth  of  the  boundary  layer  starts  at  the  high- 
pressure  end  as  well  as  at  the  base  of  the  shock.  Similar¬ 
ity  profile0  were  obtained  by  Mirels“5  for  steady  boundary 
layers.  If  the  coordinate  system  is  fixed  to  a  shock  wave, 
the  flow  in  the  boundary  layer  behind  a  shock  wave  may  be 
interpreted  as  if  the  flow  is  steady.  However,  if  the 
coordinate  system  is  fixed  to  the  shock  tube,  the  same 
boundary  layer  behind  a  shock  wave  may  be  interpreted  as  an 
unsteady  compressible  boundary  layer  flow  problem.50  This 
is  the  only  test  known  to  the  authors  for  an  unsteady  com¬ 
pressible  boundary  layer  problem.  This  problem  is  discussed 
further  in  Section  5.2. 

5. I  Rayl eigh-Bl asius  Flow  on  a  Flat  Plate 

No  exact  solution  for  unsteady  compressible  boundary 
layers  apparently  exists  that  would  provide  a  complete  test 
of  the  present  method.  The  compressibility,  large  pressure 
gradients,  viscous  dissipation,  and, the  gradients  in  time 
as  large  as  the  gradients  in  space  display  quite  significant 
differences  in  results  from  steady  state  in  an  ideal  test 
case.  Since  no  such  solution  is  known,  the  Rayleigh-Blasius 
incompressible  flow  on  a  flat  plate  may  reveal  at  least 
some  unsteady  boundary  layer  characteri sties . 

The  present  method  may  be  tested  by  computation  of  a 
solution  that  should,  at  initial  times,  be  identical  with 
Rayleigh's  solution  for  an  infinite  flat  plate  started  im¬ 
pulsively  from  rest  and  that  should  approach  ultimately 
Blasius  solution  for  a  semi-infinite  plate  in  a  steady 
uniform  stream.  The  boundary  conditions  on  an  upstream 
station  are  required  for  all  times.  However,  these  are  unavail 
able  for  an  impulsively  started  semi-infinite  flat  plate. 
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Therefore,  arbitrary  conditions  (identical  with  Halls44) 
will  be  imposed  for  the  purpose  of  this  investigation.  The 
Rayleigh  and  Blasius  problems  are  discussed  below  to  com¬ 
plete  the  presentation  of  the  example  problem. 

The  governing  equations  of  the  Rayleigh  problem,  or 
more  commonly  called  "Stokes  first  problem"  are 


8u  32u 

at  "  v  W 


(5.1) 


t£Q:  u=0  for  all  y 

t>0:  u=ut  for  y  -  »;  u~0  for  y=0 

Let  o  =  — ^ —  and  jj—  =  f(n)  (5.2) 

2/vt  ui 


If  the  definitions  in  Equation  5.2  are  substituted  into 
Equation  5.1,  the  following  ordinary  differential  equation 
and  corresponding  boundary  conditions  are  obtained: 


f"  +  2nf 1  =  0 

f(oo)  =  l,f(o)  =  0  (5.3) 

where  prime  denotes  differentiation  with  respect  to  n. 

The  solution  of  Equation  5.3  is 

{j-  =  f(n)  =  erf  (n)  (5.4) 

u  i 


Various  parameters  of  boundary  layers  can  be  obtained  easily 
by  use  of  their  definitions. 
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The  governing  equations  of  Blasius  problem  are 


32 

v9y2 


3u  av 
ax  ay 


o 


y=0 :  u  =  0 ,  v=o 

y-<»:  u  ui  (5.5) 


Let  n 


/— 


and  ip  =  /vxu  l 


g(n) 


(5.6) 


The  following  definitions  eliminate  the  second  equation 
of  Equation  5.5  from  further  analysis. 


u 


Ujg'  (n) 


v 


h  A>u 7  (ng*  -g) 

V  X 


(5.7) 


If  the  definitions  from  Equations  5.6  and  5.7  are  sub¬ 
stituted  into  Equation  5.5,  the  following  equations  are  ob- 
tai ned : 


2g'"  +  gg'  =  0 


g(o)  =  0,  g'  (o)  =  0,  g'  (®)  =  1  (5.8) 


where  prime  denotes  differentiation  with  respect  to  n» 

No  closed  form  solution  exists  except  in  series.  The 
results  by  numerical  integration  are  as  follows: 
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TABLE  I 


0 

0 

0 

0.33206 

0.2 

0.00664 

0.06641 

0.33199 

0.4 

0.02656 

0.13277 

0.33147 

0.6 

0.05974 

0.19894 

0.33008 

0.8 

0.10611 

0.26471 

0.32739 

1.0 

0.16551 

0.32979 

0.32301 

1.2 

0.23795 

0.39378 

0.31659 

1.4 

0.32298 

0.45627 

0.30787 

1.6 

0.42032 

0.51676 

0.29667 

1.8 

0.52952 

0.57477 

0.28293 

2.0 

0.65003 

0.62977 

0.26675 

2.2 

0.78120 

0.68132 

0.24835 

2.4 

0.92230 

0.72899 

0.22809 

2.6 

1.07252 

0.77246 

0.20646 

2.8 

1.23099 

0.81152 

0.18401 

3.0 

1.39682 

0.84605 

0.16136 

3.2 

1.56911 

0.87609 

0.13913 

3.4 

1.74696 

0.90177 

0.11788 

3.6 

1.92954 

0.92333 

0.09809 

3.8 

2.11605 

0.94112 

0.08013 

4.0 

2.30576 

0.95552 

0.06424 

4.2 

2.49806 

0.96696 

0.05052 

4.4 

2.69238 

0.97587 

0.03897 

4.6 

2.88826 

0.98269 

0.02948 

4.8 

3.08534 

0.98779 

0.02187 

5.0 

3.28329 

0.99155 

0.01591 

5.2 

3.48189 

0.99425 

0.P  134 

5.4 

3.68094 

0.99616 

0.00793 

5.6 

3.88031 

0.99748 

0.00543 

5.8 

4. 0^990 

0.99838 

0.00365 

6.0 

4.27926 

0.99992 

0.00022 

7.2 

5.47925 

0.99996 

0.00013 

7.4 

5.67924 

0.99998 

0.00007 

7.6 

5.87924 

0.99999 

0.00004 

7.8 

6.07923 

1.00000 

0.00002 

8.0 

6.27923 

1.00000 

0.00001 

8.2 

6.47923 

1.00000 

0.00001 

8.4 

6.67923 

1.00000 

0.00000 
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Since  the  solutions  to  the  Rayleigh  and  Blasius  problems 
are  obtained,  the  test  case  can  now  be  set  up.  The  flow 
field  characteristics,  and  the  initial  and  upstream  con¬ 
ditions  are  set  for  compression  of  the  present  method  with 
Hall's  implicit  finite-difference  results.  The  region  of 
interest  is  11x12.  The  free  stream  velocity  (uj)  is  unity. 
The  initial  time  is  0.5.  The  kinematic  viscosity  in  the 
present  analysis  will  be  set  to  unity  to  match  with  Hall's 
nondimensional  problem.  The  boundary  layer  development 
form  the  time  t=0.5  is  sought.  The  initial  and  boundary 
conditions  are  as  follows: 


t  =  0.5,  11x12:  u  =  erf  (— ^ — ) 

2/vt 


x  =  l  ,  0.51x11:  u  =  erf  ( — ^— ) 

2/vt 


x=l  ,  1.0!x<°°:  u  =  erf  (— ^ — )  +  [erf(— ^ — )-u.g' (n)]  ♦  ^  (5.9) 

2/vt  2/vt 


The  function  g'(n)  is  already  listed  above.  The  last 
upstream  condition  represents  an  exponential  variation  from 
the  Rayleigh  to  Blasius  flow.  This  is  an  arbitrary  condition 
and  not  necessarily  true  for  an  impulsively  started  semi- 
infinite  flat  plate. 

The  initial  and  upstream  conditions  given  above  are  not 
readily  acceptable  in  the  present  computer  program.  These 
initial  and  upstream  conditions  must  be  interpreted  in  terms 
of  B.'s  and  B2's.  The  definition  of  u  in  the  present  analysis 
is  given  in  Equation  3.11.  The  Bx  and  B2  may  be  obtained  by 
the  matching  (collocation  method)  of  this  equation  with  Equation 
5.9.  Since  these  equations  are  of  transcendental  type,  one 
must  solve  these  equations  for  Bj  and  B2  by  the  multidimen¬ 
sional  Newton-Raphson  or  another  similar  technique.  Since 
this  approach  consumes  more  computer  time  and  also  since  the 
conditions  at  the  wall  are  more  important  than  in  the  flow 
field  for  heat  transfer  or  skin  friction  computations,  the 
following  alternative  is  considered.  If  the  slope  of  the 
velocity  component  at  the  wall  (3u/3y  at  y=0)  is  matched, 
one  of  the  unknowns  can  be  expressed  explicitly  in  terms  of 
the  other  unknown.  That  is,  Bj  in  terms  of  B2  or  conversely: 
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(5.10) 


3u 

=  U^j 

23, 

ay 

- e 

/if 

3u 

3y 

7=o 

/ir 

Bi 

/  /if 
■  '  2u : 

3u 

'  . 

» 2T72 


2B 


2772 


q  - e 

'  2  /if 


2  -B/y 


i(fiiB1+0f2B2) 


7=0 


(5.11) 


Note  that  y  is  the  same  as  y  due  to  the  incompressible  assump¬ 
tion. 

The  resulting  unknown  may  be  found  by  the  matching  of  Equation 
5.10  with  another  point  in  the  flow  field  near  the  wall.  This 
is  accomplished  by  the  one-dimensional  Newton-Raphson  tech¬ 
nique.  The  velocity  gradient  in  Equations  5.10  and  5.11  can 
be  obtained  from  Equation  5.9.  The  results  are  discussed  in 
Section  6. 

5.2  Shock-Induced  Boundary  Layer  Problem 

This  is  a  compressible  boundary  layer  problem  but  with¬ 
out  pressure  gradients.  The  governing  equations  of  steady 
compressible  boundary  layers  without  pressure  gradients  were 
analyzed  by  Mirels45  (similar  to  the  analysis  of  the  Blasius 
problem  in  Section  5.1)  who  integrated  the  resulting  ordinary 
differential  equations  by  numerical  methods.  The  results 
were  tabulated  with  dimensionless  wall  to  the  free-stream 
velocity  as  a  parameter.  The  pertinent  equations  and  a  sample 
table  ( u  w/ u  t  =  2)  to  interpret  in  terms  of  the  variables  in 

the  present  investigation  are  as  follows: 


u 

w 


(y+i  ) 


w 


YtfRT, 


(y  1  ) 


w 


yqRT, 


+  2 
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T 

T\ 


(Y+l)  ^  "  (y*D 


u,,  u,, 

1  1 


T  u,,  2  u2r(n)  T  T 

fr  1+(it-,)  te- +  (T*-f>  s<") 

1  1  1  P5W  !  1 


r  u,,  u2r(o) 

-  -  1+<ir  in — 

1  p,w 


u  .  _ 


=  f ' (n) 


n  =  /~u7 
^  2xv 


w  i 


dy 


(5.12) 


Note  that  the  shock  velocity  and  the  wall  velocity  are 
the  same  to  interpret  the  results  between  steady  (coordinate 
system  fixed  to  the  shock  wave)  and  unsteady  (coordinate 
system  fixed  to  the  wall)  flows.  The  shock  speed  can  be 
obtained  by  the  relationship  mentioned  above.  For  the  un¬ 
steady  case,  the  coordinates  of  flow  of  interest  may  be 
computed  from  the  initial  shock  wave  location,  the  shock 
speed,  and  the  elapsed  time.  Thus,  initial  and  upstream 
conditions  may  be  obtained  for  the  example  under  consider¬ 
ation. 
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TABLE  II 


Solution  for  —  =  2.0, 


Prandtl  number  a 

w 


n 

f' 

f" 

r 

-r' 

s 

-s'. 

0.0 

2.0000 

1.0191 

0.8997 

0.0000 

1.0000 

0.8512 

.1 

1  .8984 

1.0091 

.8922 

.1479 

.9151 

.8452 

.2 

1.7988 

.9804 

.8704 

.2861 

.8313 

.8279 

.3 

1.7029 

.9356 

.8356 

.4068 

.  7498 

.8004 

.4 

1.6121 

.8777 

.  7898 

.  5043 

.6715 

.7645 

.5 

1.5276 

.8103 

..7356 

.  5758 

.  5972 

.7217 

.6 

1.4503 

.7367 

.  6755 

.6209 

.  5274 

.6739 

.7 

1.3304 

.6601 

.6122 

.6412 

.4625 

.6227 

.8 

1.3183 

.  5834 

.5480 

.6398 

.4029 

.5697 

.9 

1.2637 

.  5088 

.4849 

.6206 

.3486 

.5162 

1  .n 

1.2164 

.4382 

.4244 

.5878 

.  2996 

.4636 

i.l 

1.1759 

.  3728 

.  3676 

.  5455 

.2558 

.4127 

1.2 

1.1416 

.3135 

.3155 

.4974 

.2170 

.3643 

1.3 

1.1129 

.2606 

.  2683 

.4465 

.1829 

.3189 

1.4 

1.0893 

.2142 

.2262 

.3953 

.1531 

.2769 

1.5 

1.0699 

.174? 

.1892 

.3456 

.1274 

.2386 

1.6 

1.0542 

.1402 

.1570 

.2988 

.1053 

.2040 

1.7 

1.0417 

.1116 

.1293 

.  2556 

.0864 

.1731 

1.8 

1.0317 

.0879 

.1057 

.2166 

.0705 

.1458 

1.9 

1.0239 

.0686 

.0858 

.1819 

.0572 

.1219 

2.0 

1.0179 

.0529 

.0692 

.1514 

.0460 

.1012 

2.1 

1.0133 

.0404 

.0554 

.1250 

.0368 

.0833 

2.2 

1.0097 

.0306 

.0441 

.1024 

.0293 

.0682 

2.3 

1.0071 

.0229 

.0348 

.0832 

.0231 

.0553 

2.4 

1.0051 

.0170 

.0273 

.0671 

.0181 

.0446 

2.5 

1.0036 

.0124 

.0213 

.0538 

.0141 

.0357 

2.6 

1.0026 

.0090 

.0165 

.0427 

.0109 

.0284 

2.7 

1.0018 

.0065 

.0127 

.0337 

.0084 

.  0224 

2.8 

1.0012 

.0046 

.0097 

.0264 

.0064 

.0175 

2.9 

1 .OGOd 

.0033 

.0073 

.0205 

.0049 

.0136 

3.0 

1.0006 

.0023 

.  0055 

.0158 

.0037 

.0105 

3.1 

1.0004 

.0016 

.0041 

.0121 

.0028 

.0081 

3.2 

1.0003 

.0011 

.0031 

.0092 

.0020 

.0061 

3.3 

1.0002 

.0007 

.0023 

.0070 

.0015 

.0046 

3.4 

1.0001 

.0005 

.0017 

.0052 

.0011 

.0035 

3.5 

1.0001 

.0003 

.0012 

.0039 

.  0008 

.0026 

3.6 

1.0000 

.0002 

.0009 

.0029 

.0006 

.0019 

3.7 

1.0000 

.0001 

.0006 

.0021 

.0004 

.0014 

3.8 

1.0000 

.0001 

.0005 

.0015 

.0003 

.0010 

3.9 

1.0000 

.0001 

.0003 

.0011 

.0002 

.0007 

4.0 

4.1 

4.2 

4.3 

4.4 

4.5 

4.6 

4.7 

4.8 

4.9 

1.0000 

.0000 

.0002 

.0002 

.0001 

.0001 

.0001 

.0000 

.0000 

.0000 

.0000 

.0008 

.0006 

.0004 

.0003 

.0002 

.0001 

.0001 

.0001 

.0000 

.0001 
.  0001 
.  0001 
.0001 
.0000 

.0000 
.0000 
.0000 
.  0000 

.0005 

.0004 

.0003 

.0002 

.0001 

.0001 

.0001 

.0000 

.0000 
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Similar  to  the  determination  of  B*  and  B2  in  the 
Rayleigh-Blasius  flow  problem  in  Section  5.1,  not  onlyBj 
and  B2  but  also  and  A2  are  to  be  determined  to  provide 
initial  and  upstream  conditions  for  the  shock-induced 
boundary  layer  problem.  The  entire  procedure  is  the  same 
as  before  and  need  not  be  repeated  here.  The  results  are 
discussed  in  Section  6. 

6.  RESULTS  AND  CONCLUSIONS 


The  overall  gun  tube  heat  transfer  problem  applicable 
to  any  weapon,  ammunition,  and  firing  schedule  was  analyzed. 
Toward  this  goal,  the  propellant  gas  convective  heat  trans¬ 
fer  problem  was  divided  into  five  problems:  (1)  generation 
of  thermochemical  properties  for  any  given  propellant,  (2) 
transient  inviscid  compressible  flow  through  the  gun  barrel 
(core  flow),  (3)  transient  viscous  compressible  flow  on  the 
bore  surface  (boundary  layers),  (4)  unsteady  heat  diffusion 
through  single  or  multilayer  gun  tube,  and  (5)  unsteady  free 
convection  and  radiation  outside  the  gun  tube.  Limited 
literature  and  solutions  to  these  problems  were  discussed 
in  Sections  1  and  2. 

With  NASA-LEWIS  ''EC-71)  thermochemical  program  (Chemical 
Equilibrium  Chemistry),  the  chemical  composition  and  adia¬ 
batic  flame  temperature  and  thermodynamic  properties  were 
computed  for  Ml 8  and  IMR.  The  unsteady  inviscid  core  flow 
problem  was  solved  by  the  method  of  characteristics.  The 
transient  two-dimensional  heat  diffusion  through  the  gun 
tube  wall  was  analyzed  by  finite-element  methods.  The  un¬ 
steady,  two-dimensional,  free  convection  and  radiation  around 
gun  tubes  with  variable  wall  temperature  was  analyzed  by 
explicit  finite-difference  methods. 

The  transient,  viscous,  compressible  flow  on  the  bore 
surface  with  viscous  dissipation  and  pressure  gradients  was 
formulated  in  Section  2.  the  unsteady  compressible  boundary 
layer  on  the  bore  surface  is  one  of  the  most  difficult  prob¬ 
lems  to  analyze  due  to  the  limited  State  of  the  Art  (almost 
none)  and  also  to  the  existence  of  laminar,  transitional 
and  turbulent  regions  within  the  boundary  layer.  Since  the 
development  of  the  transitional  region  is  not  well  understood, 
the  boundary  layer  is  assumed  to  change  suddenly  from  laminar 
to  turbulent  flow  when  the  Reynolds’  number,  based  on  momen¬ 
tum  thickness,  reaches  approximately  350.  Similar  assumption 
will  be  used  for  highly  accelerated  flow  if  laminarization 
occurs . 
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The  governing  equations  of  the  unsteady  compressible 
boundary  layers  are  a  system  of  nonlinear,  parabolic, 
partial  differential  equations  with  three  independent 
variables.  The  transverse  coordinate  was  modified  to  ab¬ 
sorb  the  compressibility  effect.  The  Stream  function  was 
introduced  to  satisfy  the  continuity  equation  and  also  to 
eliminate  one  of  the  dependent  variables.  The  method  of 
weighted  residuals  was  used  to  reduce  by  one  the  number 
of  independent  variables  (y).  The  approximate  solution  form 
was  chosen  based  upon  the  asymptotic  solution  of  the  steady 
differential  equations  for  large  values  of  the  spacelike 
coordinate.  The  error  functions,  consequently,  occur  in 
the  solution  form  for  forced  convective  boundary  layer 
problems.  The  method  of  Galerkin  was  used  as  the  error 
distribution  principle.  All  integrations  across  the  boun¬ 
dary  layer  were  performed  analytically.  The  Method  of  Lines 
was  used  to  reduce  the  resulting  partial  differential  equa¬ 
tions  in  two  independent  variables  to  an  approximate  set  of 
ordinary  differential  equations.  This  procedure  enables  one 
to  solve  for  derivatives  by  the  reduction  of  a  matrix  with 
elements  of  not  more  than  the  number  of  undetermined  param¬ 
eters  introduced  into  the  solution  form,  and  thus  less  com¬ 
puter  time  is  required.  With  this  analysis,  density  and 
temperature  variations  are  allowed  not  only  across  the 
boundary  layer  but  also  with  time;  also  strong  variations 
of  free-stream  parameters  are  allowed  with  both  axial  loca¬ 
tion  and  time.  The  various  boundary  layer  parameters  were 
derived  in  Section  3.3. 

The  resulting  equations  were  programmed  for  a  digital 
computer  in  Fortran  IV.  The  standard  fourth  order  Runga- 
Kutta  method  was  used  for  numerical  integration  of  a  system 
of  ordinary  differential  equations.  The  computer  program 
with  two  terms  {Equation  3.11)  is  listed  in  Appendix  B. 

The  typical  output  contains  not  only  the  profiles  of  velocity 
components  (u  and  v),  temperature  and  density  but  also  the 
displacement  thickness,  momentum  thickness,  energy  dissi¬ 
pation  thickness,  enthalpy  thickness,  velocity  thickness, 
skin  friction  coefficient  and  convective  heat  transfer  co¬ 
efficient  as  a  function  of  the  Prandtl  number.  The  Nobel- 
Abel  equation  of  state  was  used  to  account  for  the  imper¬ 
fections  caused  by  high-pressure  powder  gases. 

First,  an  attempt  was  made  to  set  up  tha  computer  logic 
and  also  to  obtain  t^e  typical  unsteady  boundary  layer 
characteristics  with  minimum  labor.  This  objective  can  be 
achieved  by  preparation  of  a  computer  pregram  with  only  the 
first  term  of  Equation  3.11.  Moreover,  reasonable  results 


x  f  G=  r  +  " 


/ 
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were  anticipated  with  just  one  term.  The  results  discussed 
in  this  section  were  obtained  by  this  one-term  computer 
program.  The  assumptions  involved  should  be  justified  before 
interpretation  of  the  results.  The  variation  of  parameter 
Bi  for  the  sample  problem  in  Section  5.1  is  shown  in  Figure  1 
This  figure  indicates  that  the  parameter  is  not  a  strong 
function  of  x,  but  that  it  varies  significantly  with  time,  t. 
Therefore,  discretizing  Bi  with  respect  to  x,  approximating 
linearly  between  the  nodes  (i.e.,  utilization  of  Method  of 
Lines),  and  allowing  B/s  to  vary  continuously  with  time,  t, 
are  justified.  Also,  Bx  decreases  with  increasing  x  to 
accommodate  the  growth  of  the  boundary  layer. 

Next,  an  attempt  was  made  to  determine  the  convergence 
of  the  finite-difference  scheme  used  in  the  Method  of  Lines 
by  increasing  the  number  of  nodes  from  9  to  17.  This  is  the 
same  as  halving  the  spatial  step  size,  Ax  in  the  computations 
This,  in  turn,  doubles  the  number  of  ordinary  differential 
equations  to  be  solved  either  by  standard  Runga-Kutta  or  by 
othe.’  predictor-corrector  methods.  With  the  same  time  step 
(0.25)  as  in  Figure  1  but  with  halved  spatial  step  size 
(.0625),  the  results  were  unstable.  However,  good  results 
were  obtained  by  halving  the  time  step  whenever  the  spatial 
step  was  halved.  Since  B/s  and  A  j '  s  influence  any  physical 
parameter  of  the  boundary  layer  (and  the  sample  problem  in 
Section  5.1  happened  to  be  an  uncompressi  bl  e  one),  only  B/s 
are  1 isted  in  Table  III. 

These  results  show  that  B/s  change  only  in  the  third 
or  fourth  digit  after  decimal  even  though  both  time  and 
spatial  step  sizes  were  halved.  If  only  spatial  step  size 
is  halved  by  doubling  the  number  of  longitudinal  stations, 
the  changes  in  the  value  of  Bj's  can  be  interpreted  as 
negl igible. 

The  longitudinal  velocity  component  is  plotted  in  Figure 
2.  The  present  results  are  shown  by  solid  lines.  Hall's 
results  are  shown  by  dashed  lines.  The  profiles  at  the  up¬ 
stream  station  (x=1.0)  coincided  with  Hall's  profiles  for 
times  1.0  and  1.5  even  though  only  one  term  of  Equation  3.11 
was  utilized  to  obtain  the  present  results.  Slightly  differ¬ 
ent  results  are  obtained  at  upstream  and  downstream  stations 
(x=2.0)  for  larger  time  (t>7).  The  difference  is  believed 
to  be  due  to  the  use  of  different  time-dependent  boundary 
conditions  (i.e.,  matching  only  the  slope  at  the  wall  in¬ 
stead  of  the  whole  profile  due  to  the  use  of  only  one  term 
of  Equation  3.11)  instead  of  Hall's  actual  conditions.  Since 
the  results  are  quite  sa ti sfactory ,  even  one  term  of  Equation 
3.11  can  b«  concluded  to  yield  reasonable  results. 
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The  transverse  velocity  component  is  shown  in  Figure  3. 
This  is  unavailable  in  Reference  44.  However,  the  profile 
for' larger  times  (t>7)  is  in  agreement  with  the  steady-state 
Blasius  profile.53 

The  streamwise  distribution  of  skin  friction  coefficient 
at  various  times  is  shown  in  Figure  4.  At  time  t=l ,  the 
skin  friction  coefficient  is  uniform  over  most  of  the  plate. 
Very  little  difference  exists  between  the  times  4  and  10  up 
to  x=1.5.  Finally,  this  is  in  good  agreement  with  the 
steady-state  Blasius  skin  friction  coefficients.  The  tran¬ 
sient  displacement  thickness  is  shown  in  Figure  5.  The  dis¬ 
placement  thickness  increases  not  only  with  time,  t,  but 
also  with  longitudinal  coordinate,  x.  The  present  results 
are  different  from  Blasius  results  (dashed)  by  approximately 
5  per  cent. 

The  two-term  (Equation  3.11)  computer  program  listed  in 
Appendix  B  is  not  yet  operational.  This  is  yet  to  be  "de¬ 
bugged"  for  reliable  results.  The  numerical  results  of  the 
sample  problem  stated  in  Section  5.2  were  not  obtained  be¬ 
cause  of  the  expectation  of  similar  results  as  above  if  only 
one  term  is  used.  The  convergence  of  the  terms  in  Equation 
3.11  is  yet  to  be  proved,  at  best  numerically,  when  the  two- 
term  computer  program  is  operational.  Reasonable  results 
are  somewhat  surprising,  with  even  one  term  of  Equation  3.11. 
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Evaluation  of  Integrals 


APPENDIX  A 


[  yMf(Bq,)e~A*V  d-f  5 


let  XJL  =  Anj.(Bq) 


let  d  v=  AT  e  A  $  d/^. 


*  _  a. 


du.  =  t «  Be  s  ^  d-i£ 


xxv 


I  ,*._4 

v  - L_  e~A  ^ 

v  sa*  e 


JxL<Jv  =XLV-J'vdxL 

X  ^JS4'(s^)s"A  ^  d/J  =  -  ju^(B^)  e.~A  ^ 

i  i  a  D  r®  ^ 

+  -|Ta*3?  Bi  e  * 


oo 


.00  X  X 

j  Aj'Ah^.lbAj)  Q  A  ^  d/^.  =S 


%/T 
4- A* 


(A.i) 


I  ^(b^)  d/y,  =  [-jj^rr]  '(3^) 


B 


2  JtMB'+a) 


(A. 2) 


5  4 


Bs 


JWAiA+b^fTTtt 


(A.  3) 


5  4 


61 


I  tan-,(7r^P) 

+  c^vrrg*ta’'"(jrTir)  <*•*) 


5  4 


/  x4^.( Ax)  x^(sx)e'Cxt<lx=  I 


-a^-(Ax)  =  Ax  - 


A3x3  ,  Asxs  A7 x7  .  A’x 


3  +  !0 


+  2 


216 


I=nAx%-T-x'+W*,-£x'+-  ■  ‘)ec%(Bx)<jx 

Taking  each  term  of  ihe  series  separately  ?  one 
obtains  integrals  A J  Xie~C  X  ^(sx)  dx  , 

T rx‘e~CX'"+tBX)  J *’  is  f*,e~C*W(Bx)  <)*, 

^|Ve-c^(ex)dx,  e-tc. 

Consider^  x^e**CX,Jenf(8x)  dx  .  Let  dv==  Xae~CX*d(~), 
^hen  v  =  ^-£Xpe“Cp<lp  =~±.-^l(cxa-M)  . 


Let  xx  =  ^f(Bx)  ,  then  d/x^-^L  Be"5  *  dx  . 


-  Baxa 


xx. 


Jju.  dv  =>  ix.  V  — Jv  d 


OO  ^  ^ 

l  x’e  CXjuf(&x)  <^x  =  --J-  — £i-  ( C  «*  +  i )  *a£(bx)  j 


+  s ^rJ.(cx^0e' 


-8aX4  -CXa 


I  xV'^fBxJjx-O+jApt 


cW L+(c+e8)  v/cTb*-  +  aTgry , 


e  dx 

W 


62 


J  x3e"Cx%^.(sx)  <)x  = 


3  cb  +  2  a3 


(a. 5) 


Consider  jVe"C***Aj.(  Bx)  <Jx  . 

Let  dv-xVc*Xr)  ,  0'*CP*P 


w  /  x*  .  x*  1  u-cx» 
v~~lTc  'f“c*  +  -c*)e 

2.  —  1 

Let  JU.—  iw|,(Bx),  Jal  =-^-r  Be  dx 

fVe-c%(8x)d,  —  (  *  +  £  +  ^)e-CxV(ax)  {J 

*0 

+m~(£^^)e~(c*BVx'd* 

l  Xxe‘cx^(6x)<ix  =  [yc  e(c+sV  "IeT^ 

4  4  scW-i*'  J 


•‘“1  x*e  Cx -a/,i(8X) c!x  “  (ac’)(c+8*)r/*  [lscl 


+  2.0  CB*  4-  8B 


(A.  6) 


Consider  J*  X7©  '  as^.(sx)  dx  • 
Let  dv=x‘e'C>?<l(-^)  , 


63 


/  X®  ,  3  X*  ,  3  X4  ,  3  \  -CXJ 

=  ~(.Tc  +  2F  +  ^-  +  -?)e 


L  et  ~  jsa^,  (Bxj  «  d  wU.  =  ^Lr  B  G  ^  d  X 

f  x’e'cxJ!A^(8x)  Jy  =-(JL  +  |i5  +  ^-  +  ^)e  A"jM),, 


2  B  f*7  x6  ,  3  X+  3Xl 

Sr  bjL  (  ac" +  ac5  +  "c*- 


+  ^)e-(Ci8*)x8dx 

*■'  l”x7e’CX^BX)  ^x  =  7TcF(Wy^-[loscS+aloc’“Bi‘ 

+  168  CB*  +  48  B*1  (A. 7) 


Utilizing  the  same  iechni<^u.e  as  above  , 


one  obtains  X?e  C *  -g^( 8  x)  d x  ~fe'cp(c  +  iii7,7s:  [9+g c* 
4  2  5-20  C3  Ba  4  3024-  B*4  17  2  8  C  B*  +  384  B®J  (A.  8) 


Combining  Ihese.  i  ni  egn  a/  s  ,  one  gets 

Jo^W(A^)JZ/lf(B^)e“C^  d/$  - 

A3  8(;s-C*  4  20  CB*4  8  a*)  ,  Af  B(lQ5'C3^2<0cVv-J5gCB4'4  48Bg) 


A1  B(  9  4  yC*  4  2  5~30C3fla4  3024  C*B*  4  ;728C864  384  B7) 
42  "  (2C)ff(C  +  Ba}*'* 


4  •  •  • 


(A.  9) 


64 


APPENDIX  B 


Listing  of  Computer  Program 


//RAL  JOB  { - »  D)  ,  'P.Hl.NZKOEER  • 

//  E X I; C  WATFUR  «  1  IM  =2»REGION=2H\K 
//WAT.SYSiN  DC  * 

$JCB  * P • BCNZKOFlR ' » 1 1M-=12!  , PAGE S=16G,Kp=29 
IMPLICIT  RE AL*g{ A- H)»KbAL*8( P-2) 

EXTERNAL  EU 1  >  E  U2»  E03 »  E  U4 

COMMON  OM  t  G A  1 , DM  L  GA  2 » R  ,  P 1  » E  TA  ,C  , PR  ,D  YB  ,P  1  ,  P2  ,  P3  ,  TW1 ,  T  W2 
CGMMDN  T  W  3»  T  1 1 »  T1  ?  »  7  1  GTHT  1 1 ,  THT 1 2  ,  ThT  13  ,RHOO  ,  RHfil  I ,  RH012  t  RHL 1 3 
COMMON  DP.MO  1 1 »  ORIlO  1 2,  rRHO  1  3t  VTV*'P  X»  VTHPX  tO TWI  ,0TW2  »DTW3,VL1  ,VL2 
COMMON  VLi,COMGA«  VYP1,  VVP?  ,  VVP 3 ,  WPP  I ,  VVPP2  ,  VVPP3 , H,  DTI  1 ,  DTI 2, DTI  3 
COMMON  C4,CCG1,C49,CC2,C:-5,CE3,CCE  3,CCE‘i  tCC5 

Common  i  ipxi,t  ipx2,  r  ipxj,peltai,oel  TA2 ,  ji  »cp 

COMMON  c  rHTll.l'THf  I2,C  mri3 

DIMENSION  OMEGA! 12 >»A1<  1/),A2( 12) *81 (12) ,B2(12) » AI P ( 1 2 ) t A2 P 1 1 2 ) 
DIMENSION  MP(I2)»E2iM12),T1(12)tT(12),VP(12),XL(12)  ,THET1  (12) 
DIMENS  ION  *>Kb(  12) »  V*P(  12  ) ,  RhO  (  1 2  )  ,D  T  ( 1 2  )  ,DTHT< 12)  ,DRHO( 12) 

RiiAD  l,i\ll,N2,N3,'sA,M2,NG,N  7  y  c3 
READ  2,  (  r  1<  I  ),  1=  i,M  ) 

READ  2, (T(  I  )  ,  1=  l » N  2 ) 

READ  2,  ( VP (  I  ),  1  =  1 ,N3) 

READ  2,  (  XL  (  I  )t  I  =  1 » N  4  ) 

READ  2,  (ThET  It  I  ),  1=1,  .6) 

READ  2  ,  (P RE (  I ) ,  I  =  1  *  N  7  ) 

READ  2, ( VPP ( I ) , 1=1, NR) 

READ  2,  (RKX  1  ),  1=1, NH) 

K E A i;  2,  (CM  I  ),  1=  i , N c! ) 

R c AO  2,  (  DTin  (  I  )  ,  1=1, Nb) 

READ  2,  ( CRHL ( 1  ),  1=1, NP  ) 

READ  J, (PMEGAI I), 1= 1, 11 ) 

PRINT  I,Nl,N7,N  ),NA,N‘>,NA,fi7,Nt! 

PRINT  2,  (  1  l  (  I  ) ,  1=1, Nl) 

PR  INI  2 ,  ( 1  (  I  ) »  I  =  l »  N  2  ) 

PRINT  2 ,  !  VP {  I  ) ,  I  =  1 , o  1 ) 

PRINT  2,  (XL!  I  ),  1=1, IX.) 

PRINT  2,  II  H>-T  1  (  1  ),  1=  i,N6) 

PRINT  2,  (PRi:(  I  ),  l  =  i,NM 
PRINT  2,  (VPPI  I  ),  1=1, Nb) 

PRINT  2,  (RHO(  I  ),  1=1, NO 
PRIM  2,  (Cl  (  I  ),  I=1,NM 
PRINT  2,  I LTHI { 1  ),  1=  1  ,Nt  ) 

PRINT  2,  (DRHUI  1  ),  I=1,,’H) 

PRINT  3,  (OMEGA {  I),  1=1,11) 

1  FORMA  I  (6110) 

2  FORMA!  (oDS.o) 

3  FORMAT  (  Ilf b. 2) 

CUMGA= .123 

G=  1 
R=  1 
CP=  1 

P  I  =  i .  1  A  1  3  -i 
OMEGA  1= .  i 
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l':*FGAc=  .3 

f tlThl=.: 

1  •  h  L  T  A  t;  =  . ' 
l  T  ES  T  =  C 
0S  =  i  IM. 

C  1=2./L  S.vKTtP  I  ) 

C  3=1. /Cl 

C4=-l  ./CScKl  (i'I  }=s^M:  G„l*i  n‘CuA 
C4*J=i>  toAl*i£*LS«!<T(  t./Pl  )/4. 
CC2=-l.K:GAl*C--tGA2/i;Sf.P  [(-'>!  ) 

C  C  1  =  4  .  #  C.  N  PC  he  *  *  2  /  P  l 
i.C3=  .  2 fa* CP* C  S».R  T  (  2.  /P I  ) 
CE5=-CP/CS0RT(P1 ) 

CCL  3=-CP/CSi,P.  1  (MI  ) 

CCt  fa=.2S*CP*{  Sl.rt  I  {  2./r>  n 
CC5=.2f>*l  S'.kT  ( 2./P  I )  *f  "LGA2** 
I  I  =  .  > 

C=  1 

C  T  A= '  .  . 

i  n=i: . 
p~i=  i 

RH(K  =  1 
J  1  =  Q 

f  0  2  I=1,J1 

M (  I  )=C.  . 

K  <  I  )  —  <  1 1  (  1 ) 

Alt  I )  =  bl  (I) 

A  2  (  I  )  =  A  1  (  1  ) 

A 1 P  C !)=.,. 

A2P{  I  )=  .•.< 

!UP(I)  =  ., 

L'  c  P  (  I  )  =  .„ 

C(JNTl..Ut 
Th  1  = 1  . 

1  W 2=  1 . 

T  W  3=  1 . 

V  T  W  P  X  =  0  . 

vi  hpx  =  '. 

CTW 1=  w  • 

P  T  W  2  =  - 

DT i=\, . . 

T IPX 1=G . 

T  1PX2=:.<- 
T1PX3=C.C 

1  11=1  fa.  . 

T  12=  1  •-  6v  . 

T 13=1 -6'  . 

VVPl  =  faCK,. 

VVP2=t>0.  . 

VVP3=*>0 .  . 

VL  1=12 .72 
VL2=1j.72 

V  L  3=  1 . .72 

1 HT 1 1=  r 1 1-TW 1 
THT12=T 12-TW2 
THT13=T13-TV»3 
Pl=21 1 7. 

P2=2 1 17. 

P3=?  1 17. 

VVPP1=C. . 

VVPP2  =  0..: 
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WPP  3  =■'• . 
i'Hrl  1  1  =  RH~  . 

RhPl2=RH  - 
rthu  1  3- >31  (  • 

0111=  . 

I'T  12=  : . 

DTI  <=.."■ 
ui ht l i =  . 
r  th  1?=  .  . 

DTHl  l  3=..  . 

r*iu’i=c..: 

IWHlt/.s.  . 

LRHI  5  =  <-  • .  • 

H=.  125 
X  T=  1 . 

10  J=l 
(Yi3= 

1M  IT*  SI  .-w.l)  '*>,  Tl  11 
X  S  1  =  1  •  L 

or-  it  l^ 

11  xsi  =  ds*mxt 
it  xr-xsi 

IHIT-Sf.i  j.  )  Gl.  It  ‘>2  3 
(>U  TO  3,;3 
32  £  1=1 

CALL  LIi\cAR(T1  ,T,  rit  Tilt  !  ) 

Call  l  i  ji.ak  (  tt t  it  vp,  wp  i ,  I ) 

CALL  L  1  (  TT,  T,XL,  VL1 , 1  ) 

CALL  L  IMCAR (  11 t Tt THfc  Tl,  IKTil , i  ) 
CALL  Li  (•  Ai<  (  T  T »  Ti^f.r  ,.'l,  '  ) 

C/*LL  L  I  CAR(  IT  ,  T»Vi,0,WsVl,  I  ) 
CALL  L1*\E.V<(TT,  f  *  v Hi.  ,RH(  ll,i  ) 
CALL  Lr.tiRITTtT.Plfl  111.1) 

CALL  L  iNt  AR(TT,  Tt 'UHrfl.THTll,  I  ) 
CALL  L  Iw  t  AR  (  Ilf  f  *  l,P. H.  ‘  *  f.'KH!  1  i  I  > 
323  TT=lT+H/2. 

XS2=US*D/ 2.+XT 
X T  =  X  S2 
OU  T'J  4?  3 

422  1=1 

CALL  L  t\tAR(TT, T, 1  1  ,  1  12,  l  > 

CALL  L  I.jCAR  (  TT,  T,  VP,  VVP2,  I  ) 

CALL  L  HrAR  (  TT ,  f ,  XL  ,  VL 2 ,  1  ) 

CALL  L  I^lAR  (1  T,  I  ,  I  H£-T  1,  THT  12, 1  ) 
CALL  L  ItsiCARf  I  T,  r,P-"-,P2,  1  ) 

CALL  LI  ,  EAR ( T  1 , T, VPP , VVPP2 , 1  ) 
CALL  L  IM-AR  (  T  T,  T  ,  •<  Ht  i ,  RHU  1  Z,  l  ) 
CALL  LIM-ARI TT, T,0T,[ 112,1) 

CALL  L  IM-AR(  I  T,  T,  PTHT,I'THI  12,  I) 
CALL  L  In  CAR  (1  I  ,  l',nRlK  ,TRH  2,1) 

423  TT=TT+h/2. 

XS  3  =  US*L/ £  «  +X T 
XT=XS3 
GO  IU  523 
522  1=1 

CALL  L  I\ EAR  (  TT,  T,  T  1,  T  1 3,  I  ) 

CALL  LIwLAR(TTtT,VP,VVP3,I) 

CALL  L1K*cAR(TT,T,aL,VL3,I  ) 

CALL  L  I.JIARi  TT  ,  T,  IIIC  I  1,  THT13,  I  ) 
CALL  L1NLaR(TT,T,°Kc,P3,I) 

CALL  LHitARI  TT,T,VPP,VV?P3,  I  ) 
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CALL  LI  \IAX(  fl,  f,  ’hL’»  <HC.l  J.  I  ) 

CALL  L  I.  EAR{  fT,T,:;T,n  13,  1  ) 

1,  A  L  L  L  !  *  t  h  R  (  1  i  ,  T  ,  .  *  T I  *  T  *  u  T I  I  T  1  3  ,  I  ) 

Call  l  iglap  ( 1 1 ,  r , i  n---,c°.i«,i3»  l ) 

3  f  3  Ct.'iTI  U 

oi.  r  i)i 

3  ^  A  in  IT -SI  .r-  ..1)  ...  T'  ?«,■? 

C..LL  X  (  1,  C  l,i:3,  £1,  A/,t  1 ,i  2,  fHTll.TXl,  H  1  ,Gf'£GA,Vll  ,  VVI»1  *TT,  I  TsSM 

ct)  2 v.  1  =  c ,  j  1 

aS1=A31+.1 

Call  i,Cl,C3,  M,  iof  !,►  2,  THT11 ,  IW1,T11  ,OMEGA,VLi,  VVP1  ,TT  ,  ITtST) 
231.  Cl  NT  I  ill  •: 

11  F  S  T  =  1 
UL  lit  3-1 

2,)  C  aLL  .P  (  ].  ,C  1 .  C3,  a1  ,  A  2, 1  i  ,F2  ,  THT  1  H,  TW  3  ,  T 1  3  ,OVPGA ,  VL3  ,  VVP3  ,  M  ,  1 1  CS  D 
IHTT  .U  >  i  •  1 1, 1  >‘l  T1  lv.G 

if ( i  r  lst  .iw .  1 )  >■)  is'  .>  «’ 

Oi:  -."l  I  -  2 ,  *? 

1*.  1  ( I  )  =  t  l  ( 1 1 
IV' I  I  )  =  r,2(l) 

3  .  2  Ci  •li  I  MOF 
v?L  I;1  3  1 

3 . 1  call  kutta < j , r v  -u.> , a i , a; , f  i , >w ,a i p ,  a2p ,b  ip  ,i-2P) 

'  1  X  “  •  o  /  j 

I  A=  .  123 
I  Xl=  .  .  .  1 

cx2=.  :..i 
rxj=.  :'..i 
1  xa=.;(  i,<;  1 
I T  Fs 1  =  1 
I'O  •-  J=1,J1 
X  =  X  +  IX 

[  1  r  &  v  J ,  A  1  ( J  ),i'2(.J  ),t'i(J  ),b2(J)»TT»X 
F  RMTIix,  13, AF  Ij.'j,  2F  U.t  )  . 

GC  i  U  3 
3c  3  SUM  l  =  i.  .t 
3UM2  =  l  • 

SUW3=  )  «  . 

SUMA  =  .  , . 

>\iUSS  =  Cl*l  ’  cGA(  J  )*(  A  1  (  J  )  ■>•«?<  J  )  ) 

ST  =  C1*C*  Ts..3*(  All  J  )+.>?(  J  )  )/(.H  )1  l*Ul  (  J, OMEGA,  VL3  »WP>  )  *P? ) 
r  AUl.  =  Cl<  G*TW3*U1  ( .1  G;,  VL  3,  VVP3)*I  *»1 1  J)+B2(  J)  ) 

CF=4.*C*Tw3*  Ull  J  )+t  K.f  )  )/(«hul3*Ul(  J,GMCGA,VL3,VVP3  )  ) 

CALL  SIM(  FUl,/.l,  A2,r  I  ,1  2,0X1  ,SLM[  ) 

CfcL3=S0M  1 

CALL  SIM  (FU2  ,  A  1 ,  m2  , 1,  l ,  EJ2,  l  X2 ,  SUM2 ) 

L)6Lt!=  SUM  2 

CALL  S  I M  (  f  0  3  *  A  1 ,  A 2  »  6  1 »  F.  2  » 0  X  3  »  S UM  3  ) 

C'GL2=  SOM  3 

CALL  S  J f  (  PU4,  A  1 ,  a ?,  f'  1  ,h?,l)X4,SUMA  ) 

OtL  l=SUM4 

PR  INI  ,  DFL3,nFLH,C-;L2,PtLl 
5  CUNTINUi: 

IFITT.UT.TTl )  UU  fl.  110 
GG  Til  1  j 
109  CONTI  NIL" 

11?  CALL  EXIT 
END 

SURU'UT  INF  KU1T  A(  J,X,Al,A2,Hl,B2,AlP,A2P,blP,b2P) 

I MPL  ICIf  RFALX'&l  A-H)  ,r6AL*F(  U-2  ) 

COMMON  CM  FGA  1 »  (MEGA 2  » f!  »  P I ,  t  TA  ,  C  ,  »K  ,  OYir  ,  P 1  ,  P2  ,  P3  ,  TV,  1 ,  TW 
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a.y.Mu  rw^,  ti  ; ,  1 1:,  1 1 1,  mi  1 1,  r h r  12,  run  3  ,Knrr  ,phli  1 , rhcu »«h«-  1 3 

CuKHi  uKhL  1  l »  L<fi*  1  /  - •  .PHI  1  ;•>  VThPXt  VTHPXd'  TM  » l  Tto2»GTlr«i»VLi*V_2 
CuMMU  i  VL  3, (.*-  G  A,  VVP  1 , VVP/  ,  VVP3,  WPP1  ,  VVPI'2  ,  V  VHP?  ,  H ,  I  Tl  1 ,  [  T  1 «_ ,  CT  13 
COMMON  C4 ♦  CC S 1  ,C^  >,C C2 ,  CL *> , C  -  3  ,CCl  3  ,CCl  t>  ,CC :> 

covM<r;  i  ipai,  1 1^x2,  n.  *3,01  l tai,opl nz , ji  -c^ 
r.T»-rii,i;rm  12, ■  inn 3 

r-  IMfc-S  lufv  A.-.  1  {  IP)  ,  \K,  (  12)  ,  A«<3(  12)  ,AKA(  12)  ,X{  12)  ,A1  (  12)  ,  A2  (  I?  > 

t  i^Lnnnx  n  12),al2(  i<:),  al  3(  12)  ,alm  12  j  ,m  12)  ,t.2(  12) »  a  1  ♦* ( 1  cr ) 

p  l  ?-'•  r  •  13  I  A>  i< 12>,A-  ;■(  12),  a-  3  (  1?  )  ,  AM4  (  1/  )  ,  A?  P  (  1  ?  )  ,  n  .  P  (  1  2  ) 

C  I  v,ti\i  I  f  <rv>  A  .1(  12), A  i?A  U),As3(  12),A\M  12)  fH2P(  1/) 

C.1MLNSI0G  Z  1(1/),/  2( \c  ),/.  U(  12)  ,ZA2(  12) 

r:t:  i>  j=/»ji 

A  1 P  (  J  )  =  (  A  1  (  J  )  -  A  i  (  I-  1  )  )  /lit,;  Ci. 

A2  P  ( J  )  =  (A/  (  J  )— A2(J— 1  )  ) /OuMOA 
L1P(J  )=  (.ill  J  )-L'l(  J-  1  )  )  /PC?-  «... 
i  2P(j  )=  (  ( j  )-f?(  j- 1 )  )/•'■( 

01=f-f‘,i  (J»x,t  l,f  z,Al,  A/,  -  1  2P,'>1»TU  ,T1 1  ,  lull  1  ,  VL1  ,VVP1  , 

1VVPP1  ,  l.lhl»[  TllfKiiill  1 ,  T  IPX l, HI)  11  ) 
r'2=PX  ( J,X,  01,  b2,  Ai,  A,  f 1P,L.2P,P1 ,  T„1 ,  II  1  ,TH  HI  ,VL1  ,  VVPi  , 

1VVPP  1 ,  LTHT1  l,i  TWltuT  1 1  ,KHl  11 ,  TIP XI  ) 

!  01= Pul  ( J,X,  a  1 ,  a,:,  t  l ,  l  2 »  4 1  >* » A  2  P ,  F>  1 P  ,  t  2  P ,  P 1 ,  I  V>  ’  , Til, I  Pi  Til, 

WL  i, vvPi, vv,(p i,  ;m  ri  1 , ^ t i  ,i. rn,i- m  n  ,i,khi  11 , ti pxu 

I.  (.' 2=  P  r  2  ( J »  X ,  A  1 » A  ,  l,  -  2  ,AlP,A2l>,»»lP,f-2P,Pi,Tfcl,TU,THl  l  l, 

1VL  1,  VVPI,  VV-’Pl,  t'll'Tl  1,01  Wl,0  111, PH  t,  11,  C-KHt  '1 1  , TIP  XI  ) 

XMJ'xl  =  ci*CCi:n.l(  J,X,Vl  1,  VVPI  )**//  ( l<2  (  J  )**'*. ) +1  2*C4*l.l  (J,X,Vli,VVPl) 
1**2/ ( i.SuPT  ( 1 1  ( J  )**/  +  ,{  J  )***  )*(L>1  (  J  )*#2+i'2(  J)  **2  )  ) 

-£  M1=C4  •!*•(, C3*t  1  (  J ,  X ,  VL  1 ,  VVP  1 ) *  *4 / ( P  1  (  J ) #b? (  J )  )  * *3 - 
iC|tvCC2vOl(J,x,VLi,VVPl  )vs-A/tt'l(j)£$2+F'2(J)!!t:'!2)x,!»!.3 

f  i  =  xNuri/cc';i 

AKKJ  )ah*r  1 

X..UM2=IV<!CA  ,*1,1(  J,x,  VL  1 ,  v'/p  1  )*<  r/i  1  (  J  )  **  3+r  )  *CC2*0l  ( .1 , X  ,  V L 1  ,  VV P 1  ) 
1**2/ (l  M.'Rl  ( t  1  { J  )**  2  +  l  /( J)**t)*(hl<  J)**2+l2(  J ) **2  )  ) 

LfcNl  =  C49*CC>>*l'l  (  J,  X,  VL1 ,  VVPI  )  **4/(Pl  (  J)  #'12  (  J)  )  **i- 
lC^^CC^x-Ul  ( J,X,VL1,  WU  )##4/(M(  J )  **2+h?  (  J )  **2 )  #*3 
r  2=xmum//i.E'i  i 
ALKJ  )=H*F2 

XNUM3=0U  i*CCt  f>*  Tl.T  i  1**2 /A2(  J  )**3+()l.2*Ch^>*THTl  1**27  (OSCM  (  A 1  (  J  )  *#/■► 
1  A2  ( J  )*#2  >*(  A  1  ( J  )**2+/.i  (  J  )**2  )  ) 

P  3=  X‘\UM  3/ f  ti\  i 
AMI  (J  )=H*F3 

xiuf'4=ct:2'*c.:3*THTii**,/.,i{  j  )**j+”ni*r.  q:3*thtii  **//(;  .v<u <  ai  (j)**t+ 
1A2(  J  )**/)*  (  ill  J  )**2  +  a,  (  j  )**,  )  ) 

P4  =  XNUM4/ 1. 1 A  1 
AH  ( J  )=H*F4 

Zi31(  J  )  =  0  1  (  J  )+AK  1(  J  )/T  . 

ZB2(J)  =  B2(J )  +  AL  l< J )//. 

/A1(J)=a1( J)+AMl(J)/2. 

ZA2(J)=A2(J )+ANl(j )//. 

Cl=FMi  (J,X,  ZB1,  Z  i/,ZAl,/  A2,r.  lP.CiP  ,P2,TP.2,T12  ,  iHT12  ,  VL/  ,VVP^  , 
1VVPP2,  CTK2,  CT  12,  -.l'l.)12,  f  1 P  X  2 ,  OR  MO  1 2  ) 

02=  FM2  ( J  ,  X ,  Z  P  1 ,  Z(  /,ZAi,ZA2,t-  1^,L2P,P2,T«2,T12  ,TUT12,V12,WP2, 
1VVPP2,  CTPT  12,  PTV.2, 1'T  12,P HP  12 ,  T  IPX/  ) 

001=  Ft  1  (  J,  X,  A  1,  -At  ,h  1  ,i-2  ,  aip  ,A2P,f-  lP,t  2P  ,  P?  ,  I  k2  ,T  \t  ,  TH  r  12  , 
lVL2»VVP2,VVPP2,uriiT12,l'TW?,u  T12,PH«;12,0KHC1?  ,  T1PX2  ) 

CC2=F£2(J,X,A1,  A2,F  1,o2,A1p,A2P,P1P,P2P,p2,TV.2,T1c,ThT12, 
1VL2,VVP2,VV“,L>^,1  ThT12,C'TF. /,l>Tl/,cHul /  ,('<••<  HC 12, TIPxt) 
XNUMl=L‘l*CCb*l>l(  J,  X,  VL2,  VVP2H-^//(ZP2(  J)  :f*A)+C'2*CA*i.l  (  J,X,  VL2  ,VVP2 
1  )**2/(CS0PT( ZL i( J  >**c+Zb2( J )**2)«( ZB1 ( J) **2 ♦ Z I  2 ( J ) **2 ) 1 
nENl  =  C49*Cti>*ul  (  J,  X,  VL2,  VVP^  )**4/  (Zt.l(J)«/h2(J))<v3- 

1C4*CC2*UHJ,X,VL2,VVP2)v*4/(Zh1(  J)**?+Zb2(  J)**2)*$3 

P  l  =  Xr10M  1/L  t'«  1 
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AK2(J)=F*Fl 

/.JUM2=(j2*C4  ^Ul<  J,X,VL2»VVPi  )**2/Zbl(  J)  **3+Dl  *CC2 *U1  (  J»X  ,  VL2  * VVP2 ) 
1**2/ (C.Sb*n  Zf'l(  J)**2*Zt2(  J)**2)*<Zfil<  J5**2+ZF2(  J>**2)) 
l:E.U  =  C4<**CC‘.>*Ul(  J,X, VL2, V VP 2  )**4/(  ZB1(  J)  *ZB2(  J)  )  **3- 
K:4*CC^*U  i  ( J»  X,  VL<-»  V9P2  )**4/(  ZBK  J)**2+ZR2  <  J)  **2)  **3 
F  2=  X\(..M  2 /  f  ci'i  1 
AL2(J)  =  F<*F2 

X;iJM3K;i;l*CCLb*  ThT12**2/A2<  J  )  **3+Pr 2*C  1 5> *TH  T12  **2 /  < USORT  (  Al  U)**2  + 
i  A  2  (  J  )  *  v  i. )  *  (  A  1  (  J  (J  )  *  *  c  )  ). 

F3=X';l.F  3/2F..1 
Aii2(  J  )  =  F-F  J 

X  <U"4=niv*Cf 3*THT12**2/A1(  J)**3+rol*CCE3*THT12**2/(bS&RT(Al  ( J)**2+ 
iA2{  J  )**2  )*  (  M  (  J  )**2+A2(  J  )**2)  ) 

F4=XMUM4/I.  tM  1 
AM2( J )=li*F4 

/ul  (  J  )  =  t:  1  (  J  )  +  AK2(  J  )/2. 

Z«2(J)  =  c2(J)+AL2(J)/2.‘ 

Z  A 1  (  J )  =  A  1 ( J ) +  AM  2 ( J  1/2. 

Z  42 ( J )  =  A  2  (  J )+AN2(J )/2. 

I)1=FK  i(J,x»Ztl,Z  r2»Z  A  l,ZA2»hiP»  132  P,P2»TVt2»T12»THT12»VL2»VVP2» 
1V/PP2,  UlfcoUT  12,  Win’ll,  riPX2,0*<H012> 

C2=FM2  (J,  X,  /.hi,  Zc2,  Z  4  1,  ZA2,L  1P,B2P,P2,  Tw2,Tl  2  ,THT1  2  ,VL?  ,VVP2  , 
1VVPP2,  L'TH  12tr.'IK2,LTUtKHf'  lc  ,  1 1PX2) 

Ci;l=n  i(  J,  X,  Ai,  A<.,)1,;.2,A1P,A2P,B11,,J2P.P2,T!,2  ,TI2  ,THfi2t 
1VL2,  VVP2,  VVPP2,  .jlHriZ.L  fw2,i  T  1 2  ,  RUN  1  2  ,  IMHC1 2 , 11PX2  ) 

C  U2  =  F£2  (J»X»Ai,A2»Bl»t.2,AlP»A2PtBlP»B2P,D2»TW2  »T12  *  TH  T1 2  » 

1VL2,  VVP2tVVPP2,CT!lT12,nT^2,t  T12,PHi)l2,nRH012,  TIPX^  ) 

XivU,/ 1  =  b  1  *C C t)*b  1  (  J,  X,  VL2.VVP2)**2/<  ZB2(  J)  **3 ) +L>2*Ch*U1  (  J,X,  VL2,  VVP2 
l)**2/(i;Si^T(Zll(J  )**2*Zti2(  J)**2)*(Zt31(  J)  **2+ZB2  (  J)  **2)  ) 
b  EN 1  =  f.4‘)*CC  j*l!  1  (  J,x,  VL2»VVP<.  )**4/(ZPl(  J)*ZB2(  J)  )**3- 
1C4*CG2*U1  ( J,X,  VL2,  VVP2)**4/(Zbi<  J>**2*ZB2(  J)**2>  *<=3 
r  1=XnUM  L / C r i'!  1 
AK  J ( J )  =  F*  F 1 

XMJM2=L:2>I  049*1;  1 ( J »  X »  VI 2»  VVP2 ) **<  /Zbl  (  J)  **3+Dl*CC2  *Ul  (  J , X  ,  VL2  ,  V V P2  ) 
1**2/ (  DSOxT (ZB1( J )**2*ZH.2( J )**2)*( Zbl (  J  )**?♦•/ B2 ( J) **2 I ) 

F2  =  XN  UM2/CEM 
AL3(  J  )  =  Ft* F 2 

X,MUM3=CEl*CCEt>*  CHI  1 2**2 /A 2  (  J  )  **3+n02  *C bi>*TH  T12  **2  /  ( l  SURF  (  Al  (  J)**2  + 
1A2(J)*V2)*(A1(J)**2+A2(J)**2)  ! 

Fi=XNUM  ?/(. El'll 
AM  3  ( J  )=  F*  F  J 

X MUM 4s  I3l.Z*CC  3*  THT 1 2**2/A  1  (  J  ) **3+K  1*CCE3*THT 12**2/ (GSWT ( Al ( J)**2* 
1A2(J)**2)*(A1(J)**2+A2(J)**2)) 

F4  =  XMUM4/Ct'l  1 

AN3 ( J )  =  F*  F  4 

Zbl ( J >  =  hl(J KA*  3 ( J  ) 

Z(32(  J  )  =  c2(  J  }+AL  3  (  J  ) 

ZA1(J)=A1(J  )+AM3(J  ) 

ZA2( J )  =  A2(J ) FAN  3( J ) 

Dl  =  PMl(J,X,Z'<l,Zf2,ZAl,ZA?,olP,b2P,P3,TW3,T13,THT13tVL3,  VVP3, 

1 VVPP3,  DTFo,  IIT  I3,ki..ll3,  T  IP  X  3,  DKHO 1  3  ) 

02=FM2(J,x,Zl.l,Zt>2,ZAl,ZA2,f.  IP  ,B2P  , P  i , TW3 , T 1 3  »THT13  ,VL3,VVP3  , 
1VVPP3,CTFI 13,DTW3,E  ri3,Rhf  1  J, T1PX3) 

001= FE1<  J,X,  Al,  A2,bl,b2,AlP,A2P,PlP,b2P,Pj,  T  VK  ,  T1 3  ,  TH  T 13  , 
lVL3,VVP3,VVPl:>3,UlFT13,DTF.'3,tT13,RHi;l3,bPHC13,TlPXj  ) 

PC2=FE2 ( J,X, A  1, A2, bl,b2,AlP,A2P,F 1P,D2P,P3,TW3  ,Tl3  ,THT1 3, 
1VL3,VVP3,  WPP  3,  niHT13,DTW},C  T1 3  ,RH(.l  3  ,{..RHC  1 3  ,  T1  PX3  ) 

XNUM1  =  D1*CC5*U1(  J,X,VL  3,  VVP3)  **2/  (ZB2(  J)**3)  ♦  D2*C‘**Ul  (  J , X ,  VL 3 ,  VVP3 
l)**2/CDSf«KT(ZFl(J)**2+ZF.2(J)**2)*(Zfcl(J)**2  +  ZF2(J)**2)) 
CENl=C49*CCb*Ul (  J,X,  VL3tVVP3>**4/IZSl(  J)*ZB2(  J)  1**3- 
1C4*CC2*U1(  J,X,VL3,  VVP3)**4/(Zt)l  (J)**2+Z02(J)**2)**3 
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F  1=XNUM  1/r-F-- 1 
AK4( J)=F*F1 

XNUM2=D2*C49*U1(  J,X,  VI  3,  WP 3 )  **2/ZB  1 1  J ) ** 3+D1 *CC2 *Ui  I  J»X  ,VL3  »VVP3  ) 
l*f2/aS0RnZhl(J)**2+Zh2tJ)**2)*(Z81<  J )**2+Z K2<  J)**2)  ) 

F^=xNUM2/rt  •:  i 
AL4I J )=h*T2 

XNUM3=DLl*CCfc6*THri3**?/A2(  J  )  **3+LD2*CL 5* THT1 3**2 / ( DSQRT  ( A1  (  J)**2+ 
1A2(J )**2)*( A1(J :**2+A2( J  >**2)  ) 

F  3=XNUM3/CEN  i 
AM4( J )»h*F3 

X 0JM4=CC2*CL3*THT13**2/A1(  J  ) ** 3+DD 1*CCE3 *TH T 1 3**2 / ( DSCR T (  A1  (  J>**2+ 
1A2( J )  +  *2 )*< All  J  )**2+A2(  J)**n  ) 

F4=XNUK4/LENi 
AN4  (  J  )=H*F4 

bl ( J )  =  B1  ( J  )+(AKi(J)+2.*(AK2(J)+AK3(J)  ) +AK4( J)  )/6. 

82  (  J  )  =  B2(  J  )  ♦  *  AL  1  (  J  )  +  2.4(AL2(  J)+AL3(  J)  )+AL4(  JJ  )  /6. 

A 1  ( J  )  =  A 1  (J  )  +  (AMl(j  )+2.-*(AK2(J)+AM3{  J>  )+A^4(J>  )  /6. 

A2(J)  =  A2(J)  +  (AM(J)+2.*{AN2<  J)+AN3(  J))+AN4<  J)  ) /6. 

ICO  CUNT  I  hut: 

RETURN, 

F  >1C 

subkqut  i\l:  l ineari a, x, y,vv, i > 

IMPLICIT  k£AL*8( A-H) ,5FAL*8( O-Z  ) 

CuMMUN  GML-GA 1, 0>VEGA2»R  » P 1 , F TA .C ,PR ,DYB ,P1 » P? , P3 , Twl , T W2 

ClMMlm  I  K3»  T  1 1»  T  12, T  13, THT 1 1 ♦ THT12 » TH T 1 3 , RHOC  ,RHLl 1 ,RHC12 ,RHL13 

COMMON  GKHCIl,0RH(il2,CiRHOl3tVTWPX,VTHPX,DTWl  ,D  TW2  ,DTN3,VL1  ,VL2 

COMMON  VL3»DOMGA,  VVP  1,  VVP? ,  VVP  3 ,  WPP  1  ,  VVPP2 , VVPP3 ,N , DT 1 1 , DT  12  , CT 13 

COMMON  C4,CC31,C4«,CC2,CE5,Ct3,CCF3,CCF5,CC5 

COMMON  T  IPX  1,1  1PX2*  T1PX3*C6LTA1»DELTA2*J1»CP 

COMMON  DTHT11,DTHT12,DTHT13 

DIMENSION  X( 1Z),Y( 12) 

2  I F ( A- X (  I»)  3, 1*  1 
1  1=1+1 

gc  ru  2 

3  1=1-1 

VV  =  Y<  I  )* (A-XII  +  1 ))/( X( I )-X( 1+1) )+Y( 1  +  1 )*(A-X(1  ) ) / I  X  < I  +  1J-X ( I ) ) 

RETURN 

END 

SUBRUUr  INfc  MR ( J,Cl,C3,  A  l,A2,f.l,B2,  VTHT1,  VTh,  VT1 , X » VL »VVP , TT ,  I  TEST) 
IMPLICIT  REAL*  hi  A-H)  ,KFAL*8(  O-Z  ) 

COMMON  OMEGAl,OMEGA2,R,PI,ETA,C,PR,OYB,Pl ,P2  »P3,TW1 , TW2 

COMMON  TW3*Tll,T12,T13*THTll»THT12»THT13'>KHUO*RHCll»RHC12»RHC13 

COMMON  DRhUl  1  ♦  DRhO  1 2, 1'RHl.l  3,  VTWP  X ,  VThP  X  ,D  TWI  ,D  TW?  ,DTW3  ,  VL1 ,  VL2 

COMMON  VL 3*  CONGA,  VVP  1,  VVP2  ,  VVP3,WPP1  ,  V VPP2  ,  V VPP3  , H , D  T 1 1 ,  DT 12  ,  CT 1 3 

COMMON  C4,CC51»C49*CC2»CE5»CE3»CCB3,CCE5,CC5 

COMMON  T1PX1, 1  1PX2, T IP  X 3, PEL TA 1 , DE L T A2  ,  J 1  ,CP 

COMMON  CTFT 1 1,  DTHT 1 2 ,C  THT13 

DIMENSION  All  12),  A2I  12)  ,hl(  12)  ,B?(  12)  ,X(  12)  ,NS1GN(4vjO) 

ETA1=,6 
YY 1=  .  b 
11=1 
I S IGN=0 
DEL*. 01 

IFTTT.GT. 1.625)  GO  TO  636 
I F ( ITEST .EQ.  1 )  GO  TO  £9 

88  b2( J )= .71 

89  IFCTT.GT.l.)  GO  TO  689 

9U  BHJ)=>1./<2.*OSORT(  T  T)  *OMEGA  1  )-B2I  J  )  *OMcGA? /Cf’EGAl 

F=OMEbAl*DERF  (C.6D1  *61  (J)  ) +UMEGA2*0ErtF ( C . 600*82 { J )  )  -DFRF  ( .  3  Do/ 
1DSQRTITT  )  ) 

PRINT, B2IJ),  F 
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I 
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GO  10  12C 

121  1 F  {  ISIGN.Hi.l)  GO  TO  12:. 

i r  (  h )  uo,  i2=\  i3.:> 
l'J-  MS  16-4(1 1  >  =  e 
GO  in  131 

130  •J3IG.K  1 1  )=1 

131  IFUI-1  )  133,  1  33,  1  32 

132  I F  ( f  S I  Gi\  (  !l)-*SIuN(  II-D)  12:, 133,12.: 

133  11=11+1 

B2<J )=B2(J )+OcL 
Gu  TO  9i_- 

Ic'i  FP=C1*YY1*UMlGA2*(-I>ExP<-B1( J)**2* YY 1**2) +UEXP( -62 1J)**2*YY 1**2) ) 
62 ( J  )  =  B2 ( J  )-F/FP 

bi  ( J  )  =  1 .  /  (2.*0SjRT  ( TT  )*0MEGA1  )-B2(  J  )*0MEGA2/GMfcGAl 
IS  I GN=  1 

I  F  (  GABS  {  F  )-.•■:  >001  )  1  35,  1  35,90' 

135  PRInT  1 3 6 » J ,  b  1  ( J  ) » K 2  ( J‘) 

136  F uRMAT ( 5X , 13, 2F 15.3) 

IS ION=C 

Gt  TO  6 3 o 
637  I  1-1  . 

689  IHTT.CC.i.o25)  GO  TO  fc£fi 
IF(! T.GT.1.5)  GO  TO  690 
6  2  (  J  )  =  0  .  C 
GU  TO  69G 
668  t:  2  ( J  )  =  .  V  4  8 

69  C  31  (J)aCl/UMEGAl*(  .  J32.:6  +  (  1  ./OSORT  (  P I  *TT) 33206  )*U£XP  ( 25* 

1(1 T-l)**?)-Cl*0MtoA2*B2( J) ) 

MUKi:GAl*CERF(Bl  ( J  )*YYi  )*OMEGA2*DERF(B2(  J)*YY1)-.  19894-  ( OtRF I 
1 . 300/ G SORT  (  TT  )  )  -  .  1 98  99  )  *1)E XP( - • 25*1  TT-l>.  **2) 

PR  I-'JT ,  B2(  J  ) ,  F 
IF(Tr.LC.i.g)  GU  f (i  621 
Gu  TO  620 

621  IF( ISIGN.tU.l)  GO  IV:  62C 
I F  (  F  )  6C>  ,62.', 63. 

600  NS  I GN ( 1 1 )  =  0 
GU  TO  631 
6  30  NS  I.GN  (  I  I  )=  i 

631  IF(lI-l)  633,033,632 

632  I F  (  MS  I GM  (  1  I  )-WSIGN(  1  1- 1 )  )  62. ,633, 620 

633  11=11*1 
B2(J)=b2( J)+Cbl 
GU  TO  69C 

620  FP*C  1* YY  1*GMEGA2* ( -  GtlXP  ( -h  II  J  )  **2*YY1**2 )  +0F  XP { ”B2  (  J)  **2  *YY  1**2 )  ) 
B2< J)=B2( JI-F/FP 

61 ( J)=C1/UMEGA1* ( .332. fc+( 1 . /DSCR T ( PI *TT ) - . 33206 ) *GEXP ( -. 25+ 

1  ( T  1  - 1 )  *  *  2  )  -  C  1*  OM  -  GA  c  *R  2  (  J  )  ) 

IS  1 GN=  1 

IF (OADS(F)-. 0CG>1 )  6  35,635,690 

635  PRINT  1 36, J , B  1  ( J  ) »  B2( J  ) 

636  CONTINUE 
.  RETURN 

ENO 

SUBROUTINE  S IN U , A 1, A2,B l,b2,DX, SUM) 

IMPLICIT  REAl*8( A-H) ,REAL*R(0-Z ) 

EXTERNAL  F 

COMMON  OMEGA  1, 0vifc9A2»R»P  I  ,ETA»C  tPR  ,D  Yb  ,P1  »P2  » P3  »  Tbl  » TK2 
COMMON  TW3, T 1 1, T 12, T 13, THT 11, THT12 , THT13 ,RHOO ,RH01 1 , RHU12 , RHC1 3 
COMMON  DRHOl 1 ,  BRHiJ  12,  PRHU1 3,  VThPX,  VTHP  X ,  D1  Wl ,DTW2 ,DTW3 , VLl ,VL2 
COMMON  VL3, DUMGA, VVP 1, VVP2, VVP3, WPP  1 , VVPP2 , VVPP3 ,H ,0T1 1 ,0T12» CT 13 
CUMMON  C4, CC5 1 »  C49,CC2»CE  5 ,C6  3,CCE  3,CCE5,CC5 


73 


COMMON  T  IPX  i »  r  1PX2,  T IP X3,L-EL TA 1 ,DELTA2  *  J1  »CP 
COMMON  CTHT11,  DTUT12,!  1HT13 
C  IMLNS  I0><  Al(12),A2(l?)»BHi2)tb?(12> 

Ij  F  cMP=  .• . . 

SuM=u.O 

NP=2 

?  '  G  Su«=SuM+4 . * F  ( isHUl ,  A 1 ,  A 2,  h  1  ,b 2 ,  VTHT 1 ,  VTk ♦  V T1 , P ) 

IFCMP.EG.2)  GO  TV  3.' 

I F  (  DAGS  (  I  EMP-SOM  )  .L'-  . .  C  v. ••‘5 )  GO  TC  40‘ 

3l 0  T  LMP=  SUM 

x=x+r.x 

NP=NP+1 

SUM=SUK  +  2.*r  {KH0i,Al,d2tBi,i.2,VTHTl,VTK,VTl  ,P) 

IF(DAI)S(TCMP-SlJM).LC..fCC5)  GO  TO  4CG 

TLMP=SUM 

X=X+0x 

NP=NP+1 

go  ir.  2. 

4-.  V.  MP2-NP/2 

l  F  { NP.s#  i  .  EG  .NP  )  GIJ  ro  5 Cl' 

X  =  X  +  DX 
\IP=NP+  l 

SUM=SUM+4.*F(PHiii,Al,A2,Bl,f  2  ,  VTHT1  *  VTk ,  V  T 1  t  P ) 

3(  v  X  =  XH>X 

SUM=  $UM  +  F ( RHO 1»  A1 1  A2» P 1  * b2»  VTHT1 » V  Fk t  VT1 »P) 

XNP=.\‘P 

sum=x/  (  3.#x.\p  )*  Suv. 

PR IN T, SUM 

RETURN 

-GD 

F-UMCT  l  fi  \J  Fu  1  ( P.HU  1*  AI»A2»Clto2»VTHTl*VTW*VTl  ,P) 

I  PPL  ICIT  R  fc  A  L  *  8 ( A  -  H 1 *  rt  C  A  L  *  8  (  0-  2  ) 

CUMMUN  UMI:GA1,0MCGA2,R,PI  ,ETA,C,PK,DYB,Pl,P2,P3,Tkl  ,TW2 

CUMMPN  rW3,Tii,  T12,  1  13*  FHTi  1 ,  THT  12  *  ThT13  »RHOi.  ,  RH01 1 ,  RH01 2  ,  KHC1 4 

COMMON  CPH(lll,DRHU12,GRII013,  VTWPX,  VTHPX,DTW1  ,DTW2 ,DTW3 , VL1  ,VL2 

COMMON  VL3,DUMGA, VVPl ,  V VP  2  ,  VVP 3  ,  WPP  1 ,  W PP2  ,  WPP3 .  H,  DT 1 1 , DT 12 » DT 1 3 

COMMON  C4,  CC  !>  1  *  C49,  CC2,  CE5, C t  3 ,CCE  3  *CCfc t>  *CC 

COMMtN  F  1PX1,T1PX2*  F  IPX  ifDfcLTA  l  ,neLTA2  *  J1  ,CP 

COMMON  DThTll,l)THT12*l)THT13 

DIMENSION  A 1 ( 1 2  )  *  A2( 1 2 ) *  B 1 ( 1 2  )  *B 2 ( 12) 

FU  l  =  RhO'.'/RHO  1 3*  (  DbRf  (f  1  ( J  )  *X )  +  D2RF  ( B2  (  J)  *X)  -  ( DERF  (  Ul  (  J)  *X )  ♦ 
20QRFU2(J>*X))**3) 

RETURN 

FND 

FUNCTION  FU2(RHni,Al,A2,ei,h2»VTHTl»Vm,VTl  *P) 

IMPL ICIT  RfcAL*b( A-H) , UAL*H(0-Z  ) 

COMMON  0MfcGAl,0MEGA2*R,PI,E  rA,C*PK,DYB,Pl,P2  *P3, TW1 , TW2 

COMMON  TW3, Til, T 1 2 * T 1 3 , THT1 1 , THT1 2 , THT1 3 ,RHUO , RH01 1 , RHC1 2  * RHC1 3 

COMMUN  URH011,DRH012, DRH013, VTWPX, VTHPX,DTfcl ,DTW2 ,DTW3 ,VL1 ,VL2 

COMMON  VL  3,  COMGA,  VVP  1 ,  VVP?  ,  VVP  3  ,  WPP  1 ,  VVPP2  ,  VVPP3  ,H  ,DT1 1  ,()T12,DT13 

COMMON  C4»CCf>l,C4Q*CC2,CEb,CE3,CCE3,CCEi>,CC5 

COMMON  TlPXx,TlPX2,Tl?X3,DEtTAl,DELTA2,Jl,CP 

COMMON  CTHT 1 1,  DTH1  12,I)THT1  3 

DIMENSION  A 1  (  1 2  ) , A2( 12), 61(12), H?(12) 

FU2=RH0C/kH013*(  (Df.KFIBK  J  )*X  )  +DERF  (  62  (  J  )  *X)  )  *  (  VTHT1  *  { DERF  (  A1  (  J?*X 
l)+DERf t A 2 ( J )*X1 1/VT1  +  VTW/VT  l-l. H 
RETURN 
END 

FUNCT  ION  rU3(KHUl,  Al,A2,Bl,,'?.  VTHT1  ,VTW,VT1  ,P) 

IMPLICIT  REAL*8( A-H) ,RtAL*8( C-Z ) 
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cum.'Vv  Lijl-:GAitnr--:.GA<;,!.  ,p i ,c ta»c, pr ,dyb  ,pi »P2 ,P3 »m » rw2 

COMMun  1  k  3 ,  T  11»  I  i2,  T13,THTlL,THT12,THT13,RH00,RHGll,RH012,RHi;i3 

CuT--lj-\  PKHI.il  l,[y<h"  12,  URHl- 13,  VTkPX,  VrHPX,DTWl  ,DTW? ,DTW3 , VL1  ,VL2 

COMMON  VL  :>»  I/QkGA,  VVP  1 ,  VVP? ,  VVP3»VVPP  1 ,  VVPP2  ,  VVPP3  »H,0T1 1  ,DT12 »DT13 

COMM.  On  CA,CC^l,C^9,CC2,C£‘i,cC3,CC£3,CCt5,CC5 

CuMMII.m  TIP XI, TIP/?,  T1PX3,DELTA1  ,DELTA2  ,  J1  ,CP 

CUMMOa  C  T  FT  1 1,  DTliT  12*PTHT13 

DlM.-')Sl(,:.\  A 1  (  12  ) ,  A2(  12) ,bl(  12)  ,B2  (  12) 

fU3=UiOv./RHi.'13*C;tRF(Fl(  J )* X ) +DEKF ( 32 (  J) *X)-(DERF (HI  ( J)*A)+ 
lUtrRF ( 02  ( J )*  a ) )**2) 

RETURN 
L  •  J ! ) 

FU.JCT  ION  FU4(nH-)1,  Al,  A2,B  1  ,r  2  ,  VTHT1 ,  VTk » VT1  ,P) 

IMPLICIT  REAL* b( A-H ) , N  EAL*  8( G-Z  ) 

COMMON  OF’  fGA  1  »UM  EGA  2  »R » P I ,F I A »C » PR ,DYB ,P1 ,P2 » Pi  » TW 1  ,TW2 

CtiMMO,'!  TW3,  Ill,  T12,  T 1  3 ,  f HT 1 1 , THT1 2 , TH T13 ,RHOO ,RHC1 1 , RHU12, RHL1 3 

COMMON  LRHU 1 1 »  DR  HU  12,  D°.Hfil3 »  V  TfcPX  *  V  THPX » DTW1 , D  TW2  , DTK3  ♦  V L 1 , VL2 

CUM  MON  V  L  3,  OOMGA,  VV°  1 » WP2 ,  WP  3 ,  WPP  1  ♦  WPP2  ,  WPP3  ,H , DTI  1 , DT  12  , DT 13 

Ct.MMLi  »  C4,CC51,C49,CC2,CF5,CC3,CC£3,CCEd,CC5 

COMMON  T1PX1,T1PX2,T1PX3,DELTA1,DELTA2,J1,CP 

COMMON  DIHT1 i,DTHl 12.DTHT13 

DIMENSION  A 1  ( 12  ) ,  A2  (  12),bl<  12),K2(  12) 

EU4=,<HC:  *y*VT  m  l/p*  (DORK  A 1  (  J )*X) +PERF { A2(  J)  *X)  )+RHO  *( R*VTHT1/P+ 
lCTA)-RHuf/RH013*(LcRF(hi(J)*X)+DCRF{B2(J)*X) ) 

RETURN 
C  ;D 

FijiJCT  ICO  rMl(J,X,i)l,R2,Al,A2,DlP,B2P,P,VTh,VTl  ,VThTl  ,VL,WP,WPP, 
irrw,ni  1,RW.  1 »  T  IP  X *  DR H0‘  1 ) 

I :ipl  i c  1  r  keal*b(a-ii),real*8<o-z  ) 

COMMON  uMLGA  1  ,OM  1  GA<; ,R  , P I  ,C TA  ,C  ,PR  ,0YB,P1  ,P2  ,P3  ,  Tfci ,  TW2 

COMMON  T W 3 ,  Ti 1, T12,T13, ThTll, THT 1 2 , THT1 3 ,RHCO, RHOi 1 , RHU12 , RHC 1 3 

COMMIT  CRHO  1 1 ,  DRHIl  12 , C.RH01  3,  VTWPX,  VTHPX , DTW1  ,DTW2  ,DTW3  ,  VL1  ,VL2 

COMMON  VL 3,  DOMGA,  WP  1 ,  WP? ,  VVP  3 ,  WPP  1 ,  WPP2 ,  VVPP3 ,  H , OT 1 1 ,  t1  T 1 2  ,  CT  13 

COMMON  C4,CC51,C49»CC2»Cb9»CC3,CCE3»CCk5»CC5 

COMMON  T 1 PX 1 , Tl PX? , TlPXi,DELTAl,0fcLTA2, J1,CP 

COMMON  DT  FT  1 1,  DTH1  12, ft THT 13 

DIMENS  ION  X( 12),ol( 12) t£2( 12) *A1( 1?) ,A2( 12) ♦ HI P ( 1 2  > , 02  P ( 1 2 ) 

Cl  =  -.S*DS0RT(2./i)  I  )*0M>;GA)**2 
C2  =  -0ME0A1**2/P  I 
C3=- 1 . /CSuRT  (  P  I  )*UMfctjA  l*DMEoA2 
C4=C3 

C5  =  -2.*UMEGA1*0M,_'GA2/PI 
Cfa  =  -4./(PI*DS0KT(PI ) )*0M? GA  1**3 
C/=-l./(PI*DSQRT(PI  )  ) *OM,EGA  1**3 
C8  =  -4  .*0ivEGA  l**2*OMFGA2/(  P I *DSWR T( P I ) ) 

C9  =  -2  •♦OMOGA  1**2* OMF.G A 2  /  ( P  I  *D  SDR  TIPI  )  ) 

C 1 0  =  C  9 

C11=-2.*0MEGA1*0MFGA2**2/(PI*DSGRT(PI ) ) 
C12=-2.*OMEOAl*OMEGA2**2/(P{*OSURT(PI ) ) 
C13=2.*OMtGAl**3/(PI*OSORT(PI ) ) 

C14=0MEGAl**2*0MEGA2/( PI*DSURT(PI ) ) 

C 1 5= I I./3. )*C13 
C 16=-C  15 
C 17=-C6 

Cl 8= 2.* CM FGA 1**2*0M  EGA  2/( P I *DSORT( P I ! ) 

C19=C9  ■ 

C2C=C8 
C2 1=C7 
C22=-C7 

C23=-0MF  GA  l**2*nMCGA2  /  (  P I  *DS4)R  T  (  PI  )  ) 
C24=OMEGAl**2*OMEGA2/(PI*DSGRT(PI  )  ) 
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C2G=2  .*Uiv-tGA  l**  2*£MfcGA2/(  ?  I  *1)  SGR  r  { i> I  )  ) 

C  ^6=-2  •  *u’,1fc o  A  l^fl'-'i  l  Ga^*3^  ^  /  ( P  I  *:D  SCR  T  (  P ! )  ) 

C27=C i 7 

C2 8=  2 .  * •  :rtc G A  1  **  2*>Jto C  f.A 2  /  (  P  I  *D SCR T  {  P I  )  ) 

C2->=C'J 
C  30= C '3 

C31  =  4.*iv»GAl<(<N  GA2**2/  (  P  1  *DSCK  T(  PI  )  ) 

CJ2=.5*C31 
C33=-C32 
C34=2.*C3j 
C 33= CO 

C  3  6 = 2 .  *  u  K  £  G  a  i  *  *  2  *  n  .v- :  G  a  2  /  (  P I  *  D  S  0  R  T  (  P I  ) ) 

C  3  7  =  C  3  3 
C38=Cj2 
C  39=-C2 
C40=-Cd 

C4  1=I)MEGA1*D(:LTa  1/DSOR  T(  PI  ) 

C42=0fc=6Al*rLLrA2/USGPT(PI  ) 

C4  3=ny:iGAl/LSCRf  (PI  ) 

C44=C4  1 

C45=C42/i;b.vKT(?i  ) 

C.a6=C4  3 

C47=4  .*0'»fc6A  1**2/D  I 

C4*=4.*i.U-GA1*0Mi:Oa2/p  I 

C47  =  GGt.JAl**2*D$JPT(  2. /PI  )/4. 

FKll  =  Cl*Ul(J,  X,VL,  VV’^DUlt  J,  X ,  VL ,  V  VPP  ,  V  VP)  /  ( b  I  (  J )  *p  I  ( J )  )  +  C2* 
lul(J,X,VL, VVP  )*Ul(  J,X,  VL,VVP)*0YB/B1(  J)+C3*U1(  J  ,X , VL , VVP ) *0Ul  ( 
<;J,X,VL,VVPP,VVP)*F2(  J)/(B1(  J)*BHJ)*DSURT(B1(  J)*bl(  J)+B2(J)*b2(  J)  ) 
3 ) 

FM12  =  Ci>*01(J,X,VL,VVP)*0l(  J,X,VL,VVP)*0Yt,*B2(  J)/(Bl<  J)*B1(  JM 

1. '2(J  )*P2(J  )  ) +C6*Ul { J  *  X, VL  »  VVP ) *01 ( J  » X »  VL  ,  VVP)  *U1  PX  ( WP ,  VL  )  *DA1  AN( 

2.  70/01  )/(  1 .4i4*:U(  J  >*r  l(  J)  )  +C  7*U1  ( J , X , VL , VVP) **3*B1 P ( J > * 

31  (l./(I.414*hl(J)**3)  )*l  A  TAM  .  7O7D0)  +  l  .  /  (3.  *F'l  (  J)  **3  )  ) 

FM13=Cb*ul(J,X,  VL,VVP)**2*U1PX(VVP,VL)*(0ATAMB2<  J)/(1.414*Hl(  J) 

1 )  )/(  1 .414*81  C  J)**2)+F2(  J  )*DATA.\'(IU(  J)/BSGRT(61  (  J)**<:+f.2  (  J)**2)  )/ 

2  (  Bl  ( J  )**2*DSQRT( HI  ( J  )**2  +  f?(  J  )**2)  >  )+C9*Ll  (  J  ,X  , VL,  VV  P )  **3*B2  P  (  J  )  * 
j(CATAl\i(bi(J)/CS0RT(61(  J)**2+H2(  J)**2)  )  /(  (OSQRT  ( 61  (  J)  **2+B2  ( J  )  **2  ) ) 
4**3) +(3 1  ( J  )/(  (I'll  J)**2U‘2<  J  )**2)*(2.*61(  J)**2+B2(  J)**2) )  ) 
FM14=Cl'..*Ul{  J,X,VL,  VVP)**3*blP(  J)*(DATAN(B2(  J)  /  ( 1.414*B1  (  J)  )  )  /  ( 
12.*1.414*bl(  J  )**3)+f,z(  J  )/(  (*.*BKJ  )**2)*(C2(  J)**?+2.*B1  ( J)  **2)))+ 
2C11*U1( J, X, VL, VVP)**2*U1PX( WP, Vl ) *( 2.*B2( J)/( Bl ! J)**2*PI >*UAT AN( 
3B2(  J  J/DSURI  (fill  J  )**2+b?(  J  )**2)  )  /C-  SORT  ((31  (  J)  **2+B2  (  J)  **2  )  ) 

FM15>  =  C12*U1(  J,X,VL,VVP)**3*b2P(  J)*(DATAN(B2(  JJ/DS'jRHRl(  J)**2  + 

1(32  (J  )**2)  )  /  (  CSOR  r  (Ul(  J  )**2+U2(  J)**2)  )  **3+  b2  (  J )  /  ((  bl  (  J )  **2  +  B2  (  J ) 
2**2 )*(Bl(J)**?+2.*o2(J )*#?>» ) +C 13*01 ( J , X , VL , VVP) **2 *U1 PX ( VVP , Vl) 

3* B 1  ( J  )*(CATAM(L'.7  7;n  - )/(  2.*1.414*bl(  J)**3)+l ./  (6.*bl  l J)**3)  ) 
FM16=C14*01  (  J  ,  X,  VL  /  VVP  )**2*U1PX(  VVP  »VL)  *(31  (  J )  *  (  DA  T  A:V  (  82  (  J  )  /  ( 1 . 4 14* 
IB  1 ( J ) ) )/ ( 1.414*811 J )**3 )+B2( J  J / ( B 1 ( J)**2*(B2( J ) **2  +  2 . *B1 ( J  >  **2 

2)  ) )+C 15*01 (J,X,VL,VVr>)**2*UiPX( VVD,VL)/(Bl ( J ) **2 ) +C1 6*Ul ( J ,X , VL , VV 
3P)**3*blP(J )/(bl( J)**3)+C17*Ul( J,X,VL,VVP)**3*bl < J)*B2P( J)/ 

4(2. *B1 (J )**2+R2(J )**2)**2 

FM17=Clb*Ul(  J,X,  VL,VVP)**?*U1PX(  VVP,VL)*fil  (  J)/(«2  (  J)*(2.*B1  (J>**2 
1  +  B2( J  >**2) ) +C 19*01 ( J » X, VL, VVP ) **3*B 1 ( J ) *P2P ( J ) / ( 12 ( J ) **2* ( 2.* 

2B1(J )**2+B2( J )**<:) )+C2C*Ul ( J,X, VL,VVP) **3*B1 ( J) *B2P( J) / ( (2 .*B1 ( J ) 
3**2+B2(J )**2  )*"  2 ) +C2 1*01 ( J , X, VL , VVP ) **2*L1 PX( VVP , VL) / ( Bl (J) **2 ) 
FM18=C22*01(J,X,VL,VVP)**3*LlP(0)/(Bl(J)**3)+C23*Ul(J,X,VL,VVP)**2 
1*U1PX(VVP,  VL  )/(02(  J  )*(•  1(  J)  )  *C24*U1  (  J,X,VL,VVP)  **3  *82  P  (  J  )  /  (  Bl  (  J  )  * 
2B2(J )**2)+C25*Ul(J,X,Vl,VVP)**2*B2( J ) *U1 PX ( VVP , VL ) * ( DAT AN ( Bl ( J) 
3/DSUR1  (Bl ( J )**2  +  L2( J  >**Z) )/( ( DSuR T ( Bl ( J ) **2  +  62 ( J) **Z ) )**3) 

4  +  B1IJ )/ ( (bl(J)**2  +  B?(J)**2)*(2.*Bl(J)**2+B2(  J) **2) ) ) 

FM19=C26*U1( J,X, VL, VVP)**2*U1PX( VVP,VL)*B2( J)*(DAi AO < B2 ( J ) / DSCRT ( 


1B1(  J  )**2+82(  J  )**<:)  )  /  (  (  OSQRU  B 1  (  J  )**2+B2{  J)  **2>  )  **3>+B2  { J )  /  (  ( b  1  C  J > 
2**2+b£{ J )**2)*(B1< J)**2+2.*) 2 ( J ) **2 ) ) ) +C27*U1 ( J,X » VL , VVP) **3*B2 { J ) 
3*B1P(J  )/  (  <2.*Ll(J  )**2+B2(.)  )**2 )**2 ) +C28*ll«  J,X»VL,  VVP)  **2*U1PX( 
4VVP,VL  )*62(J  )  /  C  31  (  J)*(2.*H  i( J)**2+B2( J)**2)  )+C29*Ul  (J?X, VLtVVP) 
:>**3*B2( J )*B1P( J )/< B 1 ( J )**?*{ 2i*Bl(J)**2+B2( J) **2) ) 

F,villl  =  C3t..*Ul(JtXtVLtVVP)**3*D2(J)*biP(J)/(  ( 2  .  *B1  (  J )  **2+  B2  ( J )  **2  ) 
1**2 ) +C31*U] { J,X,VL,VVP)**3*b2( J)*62P( J)/< (Bl(J)**2+2.*B2(J)**2)**2 
2)+C32*Ui (J,X, VL , WP)**2*U1PX( VVP , VL ) / ( B1 ( J ) **2+2 . *BZ ( J ) **2 ) +  C33* 
3bl<  J,X,VL,VVP)**3*B2P(  J  )  /  <B2(  J.)*<81(  J)**2+2.*B2(  J)**2)  )+C34* 

4U  .\  ( JtX,VL,  VVP  )**3*B2( J  )*82P( J)/(  (  B 1  (  J )  **2+2.  *b2  (  J)  **2  )  **2 ) 
FM112=C3b*Ul(  J,  X,VL  t VVP )**2*UIPX(  VVP,V L)  *b2  (  JJ  /  ( t*l  ( J)  * {  B1  (  J  )**2  + 
1l>2  ( J  )**2 )  )+C36*Ui( J,X, VLtVVP )**3*B2(J)*b IP {J)/(B1(J)**2*(B1(J)**2 
2+B?{ J  )**<:)  )+C37*Ul(  J  tX,VL,  VVP > **P*U1 PX (  WP,VL)/(B1  (  J)**2+B2(  J)**2) 
3+C3b*u 1 ( J »  X*  VL » VVP )** 3*b2P ( J ) / ( F.2 ( J > *< LI ( J ) **2+B2 ( J) **2 ) ) +  C39* 

4U1 ( J  »  X»  VL » VVP )**2*DYB/B 1 ( J ) 

FM1 1 3  =  C4C *U 1 { J  t  X f  VL  t  VVP ) **2*6? ( J ) *D YB/ ( B 1 { J ) **2  +  b2 ( J ) **2 ) +C41* 

1U1  ( JtXt  VLtVVP  )*OUl<  J,  X,  VLt  WPP  *  VVP  )  *R*VTHT1  *A  1  (  J )  /  (  (  R*VTH  I  1  +  irT  A*P+ 
2R*  VTto  )*ti  1  ( J  )**  2*0  SORT!  Al(J)**2+Bl(J)**2)  )  +C42*U1  {  J  ,X  ,  VL ,  VVP)  * 

3CU  1  ( J  t  X, VL  *  V VPP  *  VVP ) *R* VTHT 1*A2( J ) / ( ( R*VTHT1  + 1 TA*P+R*V T W) *B 1 ( J ) **2 
4*DS>'vRT  (  A2  (  J  )  **2+b  1  ( J  )**2  )  ) 

FM114=C43*U1( J, X, VLtVVP )*0U1 (J,X,VL,VVPP,VVP)*(ETA*P+R*VTW)/( ( 

IP*  VI  HTl  +  tl  A*P+f<*vrw)*F,l(  J  )**2)+C44*Ul  (  JtX,  VLtVVP)  **2  *U1 PX ( VVP  t VL ) 
2*k*VTHTI*A1{  J)/(  (R*vrHTl+£TA*P+k*VTW)*Bl ( J)**2*DSgRT<  Al ( J)**2  + 
3BKJ  )**2)  )+C4b*Ul(J,  X,  VL  t  VVP  )  **2  *U1  P  X(  VVP,VL)  *R*V  f  HT 1  *  A2  (  J  )  /  (  (  R* 
4VTHT  l  +  ETA*P+R*vrw)*ol(  J  )**2*I)SQRT(  A2(  J)**2+B1  (  J)**2)  ) 
F:-i06=2.*C*ETA*VTH7  l/l)b«RT(Pl  )*(A1(J)/(2.*(A1  (J)**2+^.*B1(J)**2)  )  + 
1A2(J )/(2.*( A2(J  )**2+2.*bl( J)**2>  )  ) 

F M  _•  7=  V T I- T 1  *  (  C A T  A'J (  A 1  (  J  )  / (  1. 414*B1<  J ) ) )  /  ( 4.  *DSQRT  ( 2 .  *P  1 )  *B1  ( J )  **3 )  ♦ 
1 A i  (  J  )/  (4.*CS?m(P  I  )*H1  (  J  )**2*<A1(  J5**2+2.*B1  (  J)**2)  )  ) 

KM)7=-2.*bl ( J )*v2*C*LTA*FW07 

r*Cb«VTHl  1*  (  OAT  AM  (  A2  ( J  )  /  (  1.414*i)l(J)  > ) / ( 4. *DSGRT ( 2 . *P I  )*B1(J)**3)+ 
LA2(J  )/(4.*DB»JRT(PI  )  *fi  U  J  )  **2*(  A2  (  J  )  **2+2 .  *B1<  J )  **2  ) )  ) +DS.JRT  ( 2  .*P  I ) 
2* VTto/ ( l6.*bl(J  )**3) 

FM08=-2.*B1( J )**2*C*F1A*FKC8 

X 1=  (  A 1  (  J  )**2*<2.*A1(  J)**2+6.*B1(  J)**2)  )/(16.*Bl(  J) **4* ( DbGRT ( 2.* 
161 ( J ) **2  +  A1 ( J )**2 )**  3 )  ) 

X  2=-A 1 ( J )**8/3.* ( All J )*( oC.*Bl( J ) **4+4G. * ( A1 (J)*Bl(J))4*2+6»*Al{J) 
2**4)/ ( 64  »*B 1 ( J )**6*0bURT( 2.*B1 ( J )**2+Al( J) **2) **3) ) 

X3=Al(J  )**b/l..*(  Al(  J  )*{K3.*(2.*fJl(  J)  **2 )  **3+2  lb.  * (2 . *B1  l J)**2* 

1 A 1 ( J ) )**2  +  16fa.*( 2 . *b 1 1 J )**2) *A1 ( J) **4+48. *Al  ( J)**6 )/ ( lo.*(2.*Bl(J) 
2**2)**4*CSLRT(2.*L1( J)**2+A1( J )**2)**7) ) 

X4  =  -A 1 ( J )**7/42.*( Alt J )*<  945.*U.*8l( J  >**2) **4  +  252j. *(2.*>1 ( J)**2) 
1**3*A1 ( J )**2+3C24 .*( 2.*H1( J )**2)**2*A1( J) **4+1 726. *(2. *B1 ( J)**2) 
2*A1  ( J  )**6  +  384.*Al(J)**R)/(  32.  *<  2.*B1 1  J )  **2  )  **5*DSGRT  ( A1  (  J )  **2  + 

32 . *B 1 ( J )**2 )**9 ) ) 

FM517=l.l6*(Xl+X2+X3+X4) 

FM01=VTHT 1**2*FM51 1 

XX 1= ( A 1 C J )*A2< J )*(2.*A2( J)**2  +  6.*B1( J)**2) ) / ( 4 . * ( 2 . *B1 ( J ) **2 ) **2* 
1CSQRT (2.*B1 ( J )**2+A2( J )**2)**3) 

XX2  =  -A1 ( J )**3/3 .*( A2i J )*( I5.*( 2.*B1( J )**2)**2  +  2C.*(2. *B1 ( J) **2  )* 
1A2  (J  )**2+8.*A2(  J  )**4)/<  B.*(  2.*B1  (  J  )**2  )  *  *3*0  SLiRT  ( 2.  *H1  (  J)  **2  +  A2  (  J) 
2**2 )**5 ) ) 

XX3=A1(J  )**  5/ 1„ .* ( A2 ( J )*( 105.*(2.*B1( J ) **2) **3+2 1C. *( 2. *Bl ( J) *v-2 ) 
1**2*A2( J )**2+168.*( 2.*B1< J )  **2 ) *A2 { J ) **4+48. *A2 { J) **6)/ (16.* (2.* 
2B1  ( J  )**2)**4*t:srjRT  (  2.*S1<  J  )** 2+A2 (  J  )  **2 )  **7 )  ) 

XX4=-A1(  J)**7/42.*(A2(J)*(945.*(2.*B1(  J)**2)**4  +  232;-.*(2.*Bl(J) 
1**2 )**3*A2( J )**2  +  172«.*2.*Pl{  J)**2*A2(  J ) **6  +  384. *A2 ( J) **8+3024.* 
2(2.*B1(J )**2)**2*A2( J)**4) /{  32. *(  2 .  *Bl  (  J ) **2 ) **5*bS0RT (2.* 
3B1(J)**2+A2(J)**2)**9) ) 

FH 518=1. 16* ( XXI +XX2+XX3+XX4) 

FM518=2.*VTHT1**2*FM518 


XXX 1= ( { J )**?* (2.*A2( J)**2+6.*81( J)**2) )/(4.*(?.*Bi( J) **21**2* 
2nj>QKT<2.<'Dl(  J)**2+A2(  J  )*#2)**31 
X  <X2=-A2  ( J  )**3/3.*{A2(  J)*(  l5.*(2.*Bl(  J)**2»**?+2f  .*2  .*131  (  J)**2* 

1  A2(J)**2+8.*A2(J)**<.  >/(8.*(  2.*B1(  J1**2)**3*DSCRTU.*H1<  J)**24A2(J> 
2**2 l**b  1  ) 

aXX3=A2(J)**-}/1..*(  A2(  J  )*(  i  ,5.*(2.*D1(  J)  **2)  **3+2 1. '•.*(  2.  *B1  ( J>**2) 
1**2*A2< J  1**2+ 168.  *2.  *i-  l(  J  1  **2*A2  (  J )  **4  +  4  8.  *A2  (  J)  **61/  (16  .*(2.* 

?H 1 ( J 1**2  )**  4*rS>vi\  T { 2.*b 1 ( J  1  **2+A? (  J 1 **2 1  **7 )  ) 

XXX4=-A2(J)**7/42.*(  A2(  J  1  *  (  94t>*  <  2 .  *b  1  (  J)  **2  1  **4  +  2‘j>2.  . * (2 . *B1 < J 1 ** 
l?)**3*A2<J)**?+3  24.*{  2.*F1(  J 1 **2 1 **2*A2 (  J)  **4+1  72  8 .  *2  .  *B1  ( J)**2* 
2A^(J  )**6+384.*42( J  )**B >/<  32.*(2.*81<  J  )  **2 1  **f>*OSCRT  ( 2.  *bl  (  J>**2+ 
3A2(J )**2)**9) ) 

FMS 19* 1  *  16* ( XXX1+XXX2+XXX3+XXX4) 

FM02=VTHT1**2*FM519 

F  M03=  2«*  VThT  l*VTi»*  (  T  AT  AN  (  A 1  (  J  1  /  (  1.414*81  (  J))  )/  (4.*0SCRT  <2o*PI 1* 

1K1  ( J  )**3>+Al(  J  )/  (  4.*DS0R  T  (  P  1  )*B1(  J)**2*(  Alt  J)**2+c.*bl  (  J)**2)  1  ) 
PM04  =  ?.*VTl-.Tl*Vfn*(L)ArAi\{A2(J)/(  1.4l4*Bl  {  J)  )  )  /  ( 4.  *()$QKT  (  2  .  *P 1  ) 
l*el(  Jl**3)+A2(J)/(4.*[-.S0KT(PI  )*B1  (  J  )  **2*(  A2  (  J)  **2+2.  *bl  (J)**2l) 1 
FMOy-’DStfR T  (  2  .*P  I  )*VT***2/(  1 6.  *B  1  (  J  )  **  3 ) 

FM=-2.*R*C*bl(  J  )**2/P*{  FM01+FMC2+FM03+FF<C4+FR-.!>  +  FP:t>13) 
FNOGl=.5*C:SGRT(2./P  I  ISA!!  J)**2*VTHT1**2/(D$3RT(A1  ( J)  **2+Bl  (  J 1**21* 
l(Al<.l)**2  +  2.*fcl(J>**2>  ) 

Fvi.'v2=  1 » ZIISvjR  r  ( P  I  )*A1(  J)*A2<  J  >*VrHTl**2/(nSuRT(  A1  (  J)  **2+4*  (  J  )**2+2 
l.*Bl(  J)**2)*(A2( J)**?+2.*ei( J  1**21 1 
H033=l./i:S'3RI  (PI  )*Al(  J  )*A2(  J  1  *VTHT  1**2/ ((,  SORT (  A 1  (  J)  **2  +  A2  (  J )  **2  +  2 
i.*Bl(J 1**21* ( Alt J 1**2+2.*B1(J 1**2) 1 
FB0b4=.5*USGRT  (  2./P  I  )*  V <  J  ) **2*VTFi T  1  **2 /  { DSQR  TC  A2  (  J  )  **2+bl  (  J )  **2  )  * 
1(A2( J )*»2  +  2.#Rl( J)**2)  ) 

FMO  :tA-  1 .  /BSCjI’T  ( P  I  )*VTF.Tl*VTh*Al(J)/(Al(J)**2+2»*Bl(J)**2) 

(■  6=  1 ,  /DSOR I  ( P  I  )*vrHTl*VT^*A2( J) /( A2( J>**2+2. *Bi  (  J )  **2  ) 

FM09-<:  »*K*C/P*  (  FM,\..  1  -*  FK C('  2  +  F*-  3C3+  FH004  +  F RG05  +  F .*906 1 
F  M  5 1  =  F  M  :  S  +  F  M  +  F  M  j  6  +  F  M  '  7 + F  ;  8 

FFM1* l./CSQRT (P > )*A1( J 1  ** 2*VTH71**2.' (  DSGRT  (2  .  *A1 ( J)**2+B1 ( J)**2+ 
1B2(  J  1**2  )*<  A 1  ( J  )**2+cl(  J  )**^+B2<  J)**2) 1 
FFM2=i./CbCRT(P I  )*A1(  J  )*A2(  J  )  *VTFlTl**2/(  DSORKAl  (  J )  **2  +  A2  (  J )  **2  + 
ibl(J  )**2+B2< J )**?)*< A?( J)**2+B1( J)**2+B2( J) **? 1 ) 

FFM3=l./CSORT(PI )*A i ( J )*A2 ( J ) *VThT 1 **2 /( ObORT ( A1 ( J)**2+A2 ( J  1  **2  + 
1BKJ  )**2+H2(J  )**2>*(A1(  J)**2+Pli  J)**2+B2(  J)**2) ) 

FFM4=VTHT1**2*A2(J  ) **2/ (  L-SOKT'  PI  ) *OS‘.RT(  2. *A2  (  J)  **2+Bl  ( J)**2  + 

1  B2  ( J  )  **2  )  *  (  A2  ( J  )**2  +  .<l(.J  )**2+B2< J  1**2)  ) 

FFM5=  1 .  /  Ci>C!R  F  (  P  I  1  *A1  ( J )  *VTW*VTH  d  /(  A  1(  J )  **2+Bl  (  J )  4*2  +  02  ( J  )  **2  ) 
FFM6=1./CS(1RT  (P  I  )*AZ(  J  )*VTw* VTH 1 1  / ( A2<  J)  **2+Bl  (  J)  **2  +  82  (  J)  **2  1 
Fl=2.*R*C/P*{PFMi  +  FFM2  +  rFM3+rFFl4+FFM5+FFF'6) 

Z 1=  (  A 1  (  J  )**2*(2«.*A1(  J)**?f3.*(Bl(  J)**?  +  f>2(  J)**2)  )  )  /  ( 4.  *  (  Bl  ( J  )  **2  ♦ 

1  B2  ( J  >**2  )**2*1.S‘J,'T  (  A  1  (  J  )**2+b  1  (  J  )**2  +  b2(  J  )  **2  )  ) 

22  =  -Al  ( J  )**3/3.*(  >  1(J)*{  l‘5.*(Bl(J)**2+b2(J)**2)*1!t2  +  <:/.*Al(J)**2* 
1(B1(J  1*42+82 ( J  )**<  )  +  ;  .*A  1  (  J)**4)  /(  8.  *(  bl  (  J )  **2  +  B2  (  J)  **2  )  **3*i:Sv,RT  ( 
2B1(J)**2+B2(J)**2+A1(J)**?)**5) ) 

Z3=Al(J)**a/lC.*( Al( J }*( 1  '6.*(B1( J)**2  +  32( J)**2) **3  +  2 1. . *A1 ( J)**2* 
i(61(J)  **2+B2(J)*«  21**2+168. *A1(J)*  *4  *((5l(J)**2  +  B2(J)**2)+48.* 

2A1( J)**6)/( 16.*(bl( J )**2+R?(J)**2) * *4*0 SORT (A1(J)**^+B1(J)**2+ 

3B2 ( J 1**2 1**7 1 ) 

Z4=-A1(  J  )**7/42.*(  A1  (  J  )*((>45.*(bl(  J  )**2  +  B2(  J  )  **2  )  **4  +  282u.  *  A1  (  J) 
1**2*  (BKJ  )**  2  +  B2 ( J  1**2  1**3  +  3024. *A  1(  J)**4*(B1  (  J)  **2  +  B2  (  J)  **2  1**2  + 
21728.*  (  Bl  ( J  )**2  +  «2  (  J  1**2 )*A  1  (  J  1  **6+3f54. *A1  (  J 1  **81/  (  iP.  *(  P.l  (  J)  **2  + 
3B2 ( J  1**2  )**b*l)SO(\T  (  A  1  (  J  )**2  +  B  1  (  J  1  **2+H 2 (  J)  **21**91  ) 
FM527*l.l6*(Zl+Z2+Z3+24) 

FFM7«VTHT1**2*FM527 

ZZ1=: A1(J  J*A2( J  )*( 2.*a2( J 1 **2+3. *( Bl ( J) **2  +  b^ ( J) **2) 1 1/ (4.*lhl( J)* 
l*2+B2(J)**2)**2*l:S0RT(A2(J)**2+Bl(J)**2+B2(J)**2)**3) 

ZZ2  =  “A 1 ( J l**3/3.*( A2( J )*( 1 S. *( til ( J ) **2  +  B2 ( J 1 **2 1 **2  +  23 . * A2  l  J 1**2* ( 


f, 

j 

1..1IJ  )**2+L2(  J  )«■#*) +*».*A2<  J)**4)/(  S.*(B1(  J)  **?+62  (  J)  **2  )  **3*DSlkT  { 
2.VIJ)«^  +  !!l(J)«2  +  c2(J)  ¥<-2)=f-5)  ) 

■  7  73= Al(  J  )***>/  1C  .*  ( A?(  J  )*(  1  .  •>.<=(  0 1  (  J )  **2+ri2  ( J)**2  5  **3+2iO.*A2  ( J)**2 

1*  (Hi  (J  )**2  +  t  21  J  )~42)**2+162.*A2(  J)**4*(151(  J)  **2+B2  (  J)  **2  ) +48 .  * 

242 ( J)**6)/( 16.*(hl( JH*2  +  i'2( J)**2)**4*DSGRT(A2( J)**2+P1( J>**2+ 
3h2(J  )**2  )**  7 )  ) 

Z/.4=-Al(  J  )*-*?/42.*(  A2(  J  )*<  945.*(B1(  J)  **2+82 (  J)  **2  )  **4  +  2  52  .  *  A  2  (  J  ) 

{  l**  2*  ICH  J  )**2+l.2(  J  >**Z  >**3+3:-24.*A?  IJK*^(bl(  J)  **2+h2  (  J  )  **2  )  **2  + 

|  -  .  2  1723. *A7  ( J  )**6*(r  1(  J  )**2+‘2(  J  )**2 ) +384. *A2 (  J)  **8)/ H2.*(bl  ( J)  **?♦ 

!  j»2(J  )**2  )**5*DS0RT( A2(  j  )  4=  2  +  fi  1  I  J)**2+B2(  J)**2)**9)  ) 

|  f  M528=l.  i<3*(/Zl  +  ZZ2+ZZ3  +  .7ZM 

I  •  l-Mb2P-VrM  1^^2^Fm^2K 

i  '  z Z Z i  =  <  A2(  J  )**2*(  2.*A2(  J  )  **2+3. *(81  (  J)  **2+B2  (  J)  **2>  )  )/<4.*<Bl  ( J)**2 

l  -  l  +  82(J)**2)**2*L;seRT(  A<.(J)**,:  +  B1(J)**2+B2(J)**2)**3) 

f  ZZ22  =  -A2(  J  )**3/  }.*(  a2(  J  )*  (  lt>.  *(  b  1  (  J  )  *#2  +  02  (  J)  **2  )  **2+?0.  *A2  (  J)  **2* 

!  1 (bl( J  )**2  +  b2( J )**2)  +  h.vAZ( J)**4)/( 8.*(L1 ( J)**2  +  D2( J) **2) **3*D$GRH 

2a2(J  )**2  +  P.l  (J)**2  +  b2(  J)**2)**5)) 

ZZ Z  3  =  A2  ( J)**5/l  3. *(A2( J  )*<  1, 5 .* ( 8  1  (  J  >  **2 +B2  <  J )  **2  )  **3  +  ?  1C .  *42  (  J) 
i**2*  (s>l  U  )**2+Bc( J  J**  2  )**?+16fc.*A?(  J)  **4*(Bi  (  J)  **<:  +  b2  (  J'  ,‘":2)+4B.* 
2A2  ( J  )  **  6  )  /  (  1  o .  *  ( fc  l  (  J  )  *  *  2  +1;  2  (  J  )  **2 )  **4*0S(,‘R  T  (  A2  (  J )  **?  +  r  1  (  J  )  **2  + 

!  in2 (  J  )**2 )**? ) ) 

|  ZZZ4=-A2(J  )**7/4t  .*(«<•(  J)*(  94  b. *(81  (  J )  **2+B2  (  J)  **2)  * *4+2520. *A2  (  J  ) 

i*sr?*(til(J)**2  +  B2(J)**/)**3+.i.24.*A2(J)**4*(Bl(J)**2  +  li2(J)**2}**2  + 

2 172b.  *42  (J  )**6*  ( rj  l  (  J  )  **  2+K  2 (  J  )  **?  !  +  3  84 .  *42  (  J  )  **8  )  /  (  32 .  *  (  K 1  (  J )  **2  ♦ 
3i>2  (  J  )**2  )**5*!  Rr(A2(J  )  *  *  2  +  B  1  (  J  )  *  *  2  +  b  2  (  J)**2)**9)  ) 

FM529= 1 .  i6*  (  7  1  +  /.Z/2  +  7.ZZ3  +  Z/Z4) 

FM5 29  =  V  f  b T  1* *  2*  P‘-  ’ 

FFMlJ=2.vVTHTl*VTVs*(C^TAM(Al(  J)/()$0RT(B1  ( J)**2  +  B2(  J)**2)  i,'(2.* 
1DSQRT  (PI  )*(DSvRT(Bl(  J)**<r  +  b2(  J  )  **2  )  )  **3 ) +A1  (  J )  /  ( 2  .  *l)Sf.'RT  (  P I  )  * 

2  ( til  (  J  )**?  +  132(J  )**2)*U1(  J)**2  +  B1(  J)**2  +  B2C  J)  **2)  )  ) 

FFMll  =  2.*VTHTl*vrK*<r«TA\‘<  A2t  J)/PSt.*l  (  b  1  (  J)**2  +  B2(  J)**2)  )/(2.* 

IBS  QR I  (PI  )*  (  CSGRT  (  R 1  (  J  )  **<£  +  P  2 1  J  )  **2  )  )  **3) +A2  (  J)  /  (  2.  *CSORT (PI )  *< 

2 L>  1  ( J  )***+b2( J  !**£)*(  A2( J)**2+B1( J)**2+B2( J)**2  >  )  )  +  . 2‘>*0SWRT  (Pi)* 
3VTW**c/  (DSOkT  (bl(  J  )**2+t.  2(J)**2)*(B1(J5**2  +  P2(J)**2)  ) 
FFM8=-2,*R*C*12( J )** 2/P* < FFM7+FM528+F M529+FFM1 9+FbM 1 1 ) 
bFMl3=C*tr A* ( VTHT i/LM.RT(P I) )*( AI ( J) /( Al( J) **2+Bl ( J) **2+B2 ( J) **2 
1 )  +A2 ( J ) / ( A2( J )**2+bi( J)**2+b2( J)**2) ) 

FFMl  5=VT  l-T  1*  (  DAT  AM  (  A 1  (  J  )  /C  50R  T(  b  1  (  J  )  **2  +  B2  ( .1)  **2  )  )  /  (  2.  *LS(.'R1  (  PI  I 
1* (OSORT ( K 1 ( J >**2+r2( J ) **2 ) ) **3 J +A H  J ) / ( 2 . *OSQR T ( PI ) * ( Bl ( J) **2  +  B2 ( J 
2  )**2  )* ( A 1 ( J ) *  *  2  +  b 1 ( J )$*2  +  C*2(  J ) **? ) I ) 

F FM  16  =  VTH  1/  (  2.*tb  »-R  T( I  )  )* (  PATAf  (  A2 (  J  )  /DSORT  (  6 1  (  J  )  **2  +  b2  (  J  )  **2  ) 
l )  /  (  ( DSyRT  (  b  1  ( J  )** 2+B 2(  J  )**2)  )**3)  +A2U)  /  ( (L-l  ( J )  **<:  +32  (  J  )  **2 ) *  ( 
2A2(J  )**2  +  Bl  (J  )**4+bt  (J)**2  ) )  )  +  .25*CSuRT(  PI  )  *VI  W/(L'S(,RT  (Bl  ( J)**2  + 
3B2  ( J  )**-2  )*  (  B  l(  J  1**2+  .  2(  J  )**2  )  ) 

PFM14=-2.*C*E1A*‘j2(J  )  **  2*(  FF M 1  5  +F  F  M 1  b  ) 

FM52=Fl+FFM8+bFM13+FFf  14 

FM115=C4b*Ul( J, X, VL, VVP )**2*U1PX( VVP,VL) * ( E T A*P+R*VTW ) / ( (R*VTHT1+ 
IETA*P+R*VTW )*B1 ( J )v*?)+C47*FM51+C48*IM5? 

FMI=  (FMll  +  FM12  +  FNil-}+F‘,l4  +  bv15+b(vl6+F'>'17+FRlB  +  rR19+rblll  +  bv112  + 

RETURN 

END 

FUNCTlCiN  PM2(JtX»(il»r2tAl»A2tBlP»U2P»P»VIWtVTl  »  VTH  T1  ,  VL  » VVP  ,  V  V  PP , 

1 DT HT  1 » CTVs  t  l/T  1 »  R Hu  1  *  T 1 P  X  ) 

1MPL IC1T  REAL*8( A-H) ,R6AL*8(U-Z  > 

CUMMUI.  L>f,'tGAltfJMEGA2»RtDI»cTAtC»PR*OYbtPlfP2»P3»Tv.  1»  TV-2 

COMMON  TV.  3,  flltT12»  T13,  IHT 1 1 »  THT1 2  »  Til  T13  .RHUC  » RHCi  1 » RU012  »  RHC1  b 

CCMMUtN  CRHd  1 1 »  F/R  H(i  12 » DR  HU  13*VTV»PX*VTHPX,DTW1  ,I.'TW?  ,D  TW3  ,  VL  1 ,  VL2 

CUMMUN  VL3,DUMGA, VVP 1, VVP 2, VVP 3 » VVP? 1 ,VVPP2  t VVPP3 .H ,DT 1 1 ,DT12t CT13 

COMMON  C4, CCbl,C49,CC2,Cf 5,CE 3 ,CCU 3 ,CCE5 ,CC5 

COMMON  TlPXl,TlPX2»TlPX3»f'bLTAltDELTA2tJl,CP 

COMMON  rThril»OTHT12»DTHT13 
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DIMhNSK*'!  X(  12),K1(  12),o2(  12)  t  AH  12)  *A2(  1?)  1 61P(  12  )  *B2P(  12  ) 
CCl=WjMFGAi*0f>GA2/f-Sr-R  f  C  o  I  ) 

CC2=CCl 

C  C  3  =  -  2  .  *  C  M  E  G  A 1  *  U  K  E  G  A  2  /  P I 
CC4=-.3*CWr<2./H  1  )*f.Nc&A2**2 
CC3=-.5*CC4 
CC<>=  — l.Mfc  Ga2**  2  /P I 

CC7=-4  •*(i'*ECAl*<!2*f.,Ji'fct»A2/ (  P  I  *DSORT  (PI  )  ) 

CC8=.5*CC7 

CCc»=-4  ,*(SMtoA l*u>cGA2**2/(  P  1  *OSQR T  (  PI  )  ) 

CC10=.5*CC9 

CCU=CClu 

CC12  =  -4.*l)MtGA2*<-3/(PI*DS(JKT(2.*PI  ) ) 

CC13=-2.4fKLGA2**:V(  P1*0$CRT<  PI ) ) 

CC 1 4  =  2 .  *CM  l  G  A 1**  2*C-.",  EG  A  2/  (  P I  *OSQRT  ( PI  )  } 

CC13=-CCK 

CCl6=4.*GMf GA l**2*0^-'GA2**3/(PI*PSGRTi  PI 5 ) 

CC1  .'=2.*r.MtGAl**2*GMF  ;A2/(P1*DSQRT(PI)  » 

CC 18=-CC  1 7 
CC1V=2.*CC16 
CC2  =  -CC9 
CC2 1= . 5*00.20 
CC22=-CC2 1 
CC23=-CC2c 
CC24=  CC  1 8 
CC23=-CC24 
CC26=CC22 
CC27=CC2  1 
CC28-CC2 1 

CC29=2.*l>’EGA2**.>/(P  I  vf’SGRTI  o  i  )  ) 

CCi^  =CC2C 
CC31=CC2c 
CC32=CC24 
CC33=CC19 

CC34=4  •*  OMEGA  2**3/  f‘9.4p  I*HSt.RT(  PI  )  ) 

CC35=2.*UMEGA2**3/(  3 .*P I*CS0RT< P l  )  ) 

CC36=-CC3t> 

CC37=-CC34 

CC38=-GM t GA  l*UMcUA2**2  /  (  P I  *1)  SGR  T(  P I  ) ) 

CC39=-CC38 

CC4G=-GMtGA2**  3/  (  0  I*C-S<»RT  (PI)  ) 

CC41=-CC4i. 

CC42  =  2.*CMEGAl*l!ML-G4  2/P  i 

CC43=GMEGA2**2/PI 

CC44=CtL I A1*OmEGA2/DSCR1 ( o  i  ) 

CC46=CELTA2*UMEGA2/OSOR  I  (P  I) 

CC46=UMEGA2/CS0RT ( ?  I  ) 

CC47=CELTAl*nMEGA?/DS(vRT  (t>  I  ) 

CC48=CC45 

CC49=CC46 

CC50=4.*GME0A  1*0.*' EGA  2 /P  I 
CC51  =  4»*C!MEGA2**2/PI 

FM01=CC1*U1< J*X, VL , VVP  )  *C U 1  (  J  ,  X ? VL  ,  VVPP ,  VVP )  481  ( J > / ( P2 ( J ) **2* 
10SQRT  (B..  (J)**2+B2(J)**2)  ) 

FM03=CC3*U1  (  J,X»  VL,  VVP  )**2*l  H  J)*DYB/(B1  (  J)**2+B2(  J)  *<=2  ) 
FMC4=CC4*U1(  J,X,  VL  t  VVP  )*I*U  1  (  J ,  X»  VL,  VVPP,  VVP)  /( 132  (  J)  **2) 
FMD5=CC6*Ul( J,X,VL, VVP )  **2*1>YB/B2  ( J) 

FM06=CC7*U1  (J»X»VL»VVP)**2*U1PX(VVP,VL)*B1  (  J )  *0ATAN  {  01  (  J)/0SgRl  { 
1R1 ( J )**2  +  e,2( J)**2) ) / ( b2 ( J ) **2*DSGRT IBI(J) **?+B2 ( J ) **2 ) ) 

FMC  7=CC8*G  1(J»X»VL»VVP  )**  3*B  IP  <  J )  *(  OATAN  ( H 1  (  J )  /DSuRI  ( Bit  J)  **2  +  t32  (J 
1 )  **2 )  )/(  If.SORT  (  hi  (  J  )  **2+B2 (  J  )  **2 )  ) **3 ) +B 1 { J ) /( {  R1  ( J)  **?+t.2  ( J )  **2 ) 
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P.V.'.'S=CC  ,*U1<  J,  X,  VL  VV P )  **?*U1PX<  VVP, VL) *<91  (  J)  *DATAM  B2  <  J  )/DSLKT  ( 
ibl(J)**2+H?{J )**2) )/(b2( J  )**2*DsORT<Bl< J)**2+62< J)**2) )+CATA*< 

2  u  1  ( J  )  /  l  1 . 4 1 4*  b  2  ( J  )  ) )  /  <  1 • 4 1 4*P  2 ( J  )  **2  )  ) 

F--V;  =  CCi  *l)i<  J,X,VL,VVP)**3*02P<  J)*U)ATAMbl  < J)/DSCkr<2.*B2( J)**2 
1)  )/(2.*1.41A*h2(J)**J)+til<J)/<  <2.*B2<  J)**2)*<B1(  J) **2+2. *82 ( J ) **2 
*  )  )  ) 

F.‘U ,-CCi  1*U1  (  Jf  At  VL,  VVP  )**3*b  1 P <  J)  *<  [  A  TAN  <02  (  Jl/DSORT  (B1  ( J)**2+ 
lL2(  J)**2)  )/<  (CS(.,<T(M(J)**2  +  b2<J)**2)  )  **3)  +B2  (  J )  /  (  ( til  (  J  )  **2  +  B2  ( J  ) 
4**2)* (bi (J )**2+4.*B2< J )**2  ) )) 

ry.  1 1  =  ^C1 2*U  1  <  J  ,  X,  VL, VVP  )**2*U1PX(  VVP  ,VL)  *(DATAN(C.  7C7CDC  )  /  <62  (  J) 
1**2)  ) 

FM  12  =  CC  i  3*U  1  (  J  »  X,  VL  ,  VVP  )  *.*3*3?  P  (  J  )  *  (  HAT  AN  (  0.  7C79DO  )/(  2  .  *  1 .4 14* 

H.2  (J  )**3)+l./<o.*B2<  J  )**3)  ) 

FMli=CC14*Ul( J, X, VL , VVP )**2*UlPx( VVP,VL) *(DATAN(bl ! Ji /DSLRT (L 1 ( J ) 
l**2+«2( J )**2) ) /( <CS0RT<U1< J)**2+B2(J)**2) ) **3 ) +  B H J ) / ( B1 (J)**^+ 

21  2(J ) *  *  2  )  ) 

FKl‘i  =  eC15*Ul  ( J,  X,  VL,  VVP  )**2*U1PX<  VVP,VL)  *bl  (  J  )  *  (  OaTAK  ( ill  ( J  ) /IS2-RT  ( 
lbl  <  J  )**2+B?( J  )**<:)  )/(  (  DSUf<  T{  bl(  J)**2+K2(  J )  **2  )  )  **3 )  +  >3?  ( J  )  /  (  (  bl  ( J  ) 
2**2  +  02  ( J  )**2  )*  (  0 1  (  J  )  **  2  +  4.  *i  2(J)**2))) 

F  M 1 5=  CC 1 fc*B 1 1 J ) *b 1 P ( J ) / ( ( 2 . *0  1  ( J ) **2+92 ( J)**2 ) **2) 

I-  y  l0  =  CC  1  7*U  1  <  J  »  X,  VL,  WP)**2*U1PX<  VVP,VL)  / ( 2 . *01  (  J)  **2+bI  (  J  )  **2  ) 

PM  17  =  CC 1  S*U  1  ( J » X ,  VL ,  VVP  )**  3*H  IP  <  J  )  / ( 111  (  J  ) *(  2 .  *B1  (  J  )  **2  +  i)2  <  J  )  **2  )  ) 
[Mli  =CC19*U1  ( J,  X,  VL,  WP)**3*«1(  J  )*blP<  J)  /<  (2.  *B1  l  J)  **2+02  (  J  )  *  *  4  ) 
1**2 ) 

r M 1  ’/=  CC2C*U  1  <  J  ,  x ,  VL  ,  V VP  )**3*F  l(  J)*02P(  J)  /<  IKK  J)**2+2.*B2<  J)**2  ) 
1**2) 

f-M.2  =CC2l*Ul(  J,X,  VL,  VVP  )**2*t  1(  J)  *L1PX(  VVP,  VL )  /  (  02  (  J)  *  t  B1  (  J)**2  + 

12 .*[ 2 ( J )**2  )  ) 

FM21=CC22*U1( J,X,VL,VVP)**3*bl( J)*B2P(J)/(82< J)**^*(G. ; J)**2+ 
12.*b?(J )**2 ) ) 

FM22=CC23*U 1 ( J , X, VL ♦ VVP ) **3*P 1 ( J)*b2P( J)/< ( B1 ( J ) **2+2 . *B2 1 J ) v*2 ) 
1**2) 

FM23=CC24*Ui  ( J ,  X,  VL ,  VVP  ) **2*L»1PX(  VVP  ,  VL)  / <  B 1  (  J)  **2  +  b 2  (  J  )  **2  ) 

FM24  =  CC2t»*Ul(  J,X,VL,  VVP)**3*fclP(  J )  /  (  01  ( J  )  *(  HI  (  J)**2+F2<  J)**2)  ) 

FM2f>  =  CC26*Ul(  J,X,  VL  ,  VVP  ) **2*U1PX(  VVP ,  VL)  *B1  (  J)/(02(  J)*(B1  (  J)**xv 
1 0  2  (  J  )  *  *  2  ) ) 

FM26=  CC?7*U  1  ( J ,  X,  VL »  VVP  )**3*b  1<J)*L2P(J)/<B2(J)**2*  ..)  <  J)**2  + 

1I32(J  )**?)) 

FM2  7=CC?S*U1(  J,X,VL,  VVP  )**2*L!2(  J)*U1PX<  VVP ,  VL  )  *  ( DATAM  HI  (  J)  /  ( 

11 .414*02  (J  )  )  )/(  2.H2>‘*1  2(  J)**3)+bl(  J)  /  (2.  *H2<  J)  **2*<bl  <  J)  **2  +  2.* 
202<J)**>)  )  ) 

FM28=CC29*U1< J,  X,  VL  ,  VVP  )  **2*U1PX(  VVP ,  VL )  *L2  (  J )  *  ( DAT  AN  (.,.  7*.  70 IX  ) 

1/ < 2.8  28* H2(J )**3)  +  l./( fc.*P2<  J)**3) ) 

FM2V=CC3<  *U1 ( J , X , VL , VVP ) **3*H2  <  J ) *0 1 P ( J ) / < ( Oil J ) **2  +  2 . *H2 { J ) **2 ) 
1**2) 

FM  3‘o=CCj  1*U  i  (  J ,  X,  VL  ,  VVp  )  **2*U1P X (  V VP  ,  VL)  *B2  (  J)  /  (  bl  (  J)  *  (  HI  <  J  )  **2  + 

12 .*02 ( J  )** 2  )  ) 

FM31=CC32*U1( J, X,VL. VVP) **3*02 ( J)*Pl°( J) / < 02 < J ) **2* ( 01 ( J ) **2+ 

1 2 . *  H  2 ( J ) **2 ) ) 

PM32=CC33*U1(J»X,VL»VVP)**3*B2(J)*01°(J) /( ( 01 ( J) **2+2. *02 ( J ) **2 ) 
1**2) 

FM 33=CC34*U 1 ( J , X, VL , VVP ) **3*H2P <  J ) /( 02 ( J ) **3 ) 

FM34=CC35*U 1 ( J , X , VL ♦ VVP ) **2*U1 PX <  VVP , VL) / 1 02 ( J)**2 ) 

FM35  =  CC36*U 1 ( J » X , VL , VVP )**3*B2P ( J ) / ( 02  <  J ) **3 ) 

FM36=  CC3  7*U1<  J , X, VL , VVP ) **3*B2P ( J) / ( 02  <  J ) **3 ) 

FM3 7=CC3fi*Ul ( J , X, VL , VVP ) **2 *U1PX ( VVP , VL ) / < P 1 <  J)*F2 ( J) ) 

FM3fe  =  CC39*lJ  l(J,X,VL,VVP)**j*01P(J)/(Bl(J)**2*02(J)  ) 

FM39=CC4C*U1 ( J,  X, VL, VVP )**2*U1PX( VVP,VL> / ( 02 ( J ) **2 ) 

FM4C  =  C.C4 1*U  1  ( J ,  X,  VL,  VVP  )  **3*R2P  (  J )  /( .92 (  J )  **3  ) 
FM41=CC42*U1(J,X,VL,VVP)**2*B1( J)*DYB/(B1< J)**2+b2 ( J)**2) 
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FM42=CC43*U1  (  J , X , VL , VVP  )  **2*DYB/B2  (  J  ) 

FM43=CC44*U1  (  JtX,VL»  VVP)*null  J  »  X  ,  VL  ♦  WPP  ,  VVP  )  *R*  VTHT 1  *A1  {  J)/ 

1  (  ( R* VTHT  1 +  E  1' A*P  +R*VT+. ) *B2(  J  )  **2*D SORT  (  A1  (  J)  **2+B2  {  J )  **2 )  ) 
FM44=CC4b*Ul(  J,X,VL,  VVA)*DU1  (  J  »  X ,  VL  t  WPP  ,  VVP )  *R* VTHT  1  *A2  (  J)/ 

]  (  (R*VThTl  +  HA*P+R*VI+. ) -L  2 {  J)**?*nSCRT<  be  (  J)**2+'32(  J)  **2  )  ) 

Fy4t>=CC4  6*Ul<  J,X,VL»  WP  )*(-Ui(  J.X,  VL,  WPP,  WP)  *(ETA*P  +  R*VTW)/ 

1  (  32 ( J  )**2*(R*VTHT1+lT'.*o*R*VTW)  ) 

FM46=CC47*U1 ( J,X, VL,  VVP )**2*U1PX<  W3,VL) *F*VThTl*Al { J)/ (G2( J)**2 
1*  (  R*V  I  HI  1  +  LT  /**P  +R*V  Tk  >*t)SORT(  A-l  (  J  ) **2+02  (  J )  **2  )  ) 

FM47=CC43*U1  (  J,X»  VL  ,  WP  )**2*U1PX<  WP  ,  VL )  *R*V  TH  T1  *  A2  (  J)  /  (  (  R*VTHT  1  + 
1ETA*P+R*VTW  )*F2( J  )**  2*DSOP  T(A2(  J)  **2+02 (  J)**2)  ) 

FP4F=CC49*U1( J,X,VL,  WP)**2*U1PX(  WP,VL)*(f:TA*P+R*VTk)/(B2( J>**2 
1*{R*VTHT1+ETA*P+R*VTW) ) 

F.MOOr  1  =  VT  HI  i**2*Al(  J  )**2/(  (A  I  (  J)  **2+Bl  {  J)  **2  +  <j2  (  J)  **2  )  *DStfRT  ( 
12.*A1(  J  )**2+bl(  J  )**2++2(  J)**2)  ) 

HMUOO<:  =  VTHTl**2*A2i  J  )**2/(  (  A  2<  J  )  **2  +  0  1  (  J  )  **2+02  (  J )  **2  )  *OSGK  r  ( 
12.*A2(J  >**2  +  BU  J)**2+r.2(  J)**2)  ) 

FMOOC  i=VTHTl**2*Al(  J  )*A2(  J  )/(  {  Al(  J  >**2  +  f.  1  (  J )  **2  +  t^  (  J  )  **2  )  *DSi.RT  ( 
lAHJ)**4  +  A2(J)**2+Bl(J)**?+t>2{J)**2)) 

FMO‘jCa  =  VTHT  1**2*A2(  J  )<*2/(  (A2(J)**?  +  Ul(J)**2  +  B2(J)**2)*Di>QRI  ( 

1 2 •* A2 ( J )**2+61(J)**?+h2(J) **2 ) ) 

FMOOOi>  =  VTHT  1*VTW*  A1  (  J  )  /  (  A 1  (  J  )  **2+01  (  J  i  **2+h2  (  J  )  **2  ) 
riO;  0o=  VTHT l*VTW*Ac(  J )  /{  A2  (  J  )  **2+B 1 ( J ) **2+0^  (  J )  **<: ) 

FMOC 1=2 .*R*C/  ( DSQP T (  P !  )  *P  ) *(  FMCC 1 1+F  V>002+FMC:*./3  +  PHv  J04  +  F.V0  j.  5  + 
IFMOi  Ofa) 

/ 1=  <  Al(J)**2*(2.*Al(  J)**2+3.*(B1(  J)**2  +  t:2(  J)**2)  )  )  /  ( 4 .  * {  01  (  J  )  **2  + 
1B2(  J  )**2)**2*DS'JRT(  Alt  J  )**2+Bl(  J)**2+82<  J)**2)**i) 

Z2  =  -A1(J  )**3/3.*(Al<  J)*(  15o*<BHJ)**2+B2(  J) **2 ) **2+20. *A1  (  J)**2* 

1  (  rtUJ  )**  2 +&2(  J  )**<  )+F.*Al(  J)**4)  /  (  6.  *(B1  (J)  **2  +  H2  (  J)  **?  )  **3*LSlRT  ( 
<'bl(J)**2  +  B2(J)**2+Al(J)**2)**‘>n 

Z3  =  A1  (J)**5/lt.*(  Alt  J)*<  lf5.*<01(  J)**2+b2(  J  >  **2  )  **3  +  21''-.  *A1  (  J)**2* 

1  (131  (J  )**2+B2( J  )**2  1**2+168.  *A1(  J  )**4*(  01  (  J)**2  +  B2(  J)  **2)+4  8.* 

2  All  J  )**6  )/(  16 •* ( 0  1  (  J  )  **2+0  2(  J )  **2 )  **4*C'SGRT  (  A1  (  J)  **2+01 1  J  )  **?  + 

3 B 2 ( J )**2  )**!)) 

Z4=-A1  (  J)**7/42.*(  Al(  J  )v(  <^5 ,*( 0 1  (J)**2+B2(J)**2  )  **4+252  *A  1  (  J) 
1**2* (B1(J)**2+B2(J )**2)**3+3!!24.*Al(  J)**4*(B1(  J)**2  +  b?(  J)**2)**2  + 
21 728.* ( t 1 ( J )**2+b2( J )**21*A1( J ) **6+384. *A1 I J) **R) / ! >2. *<01 ( J)**2+ 
3B2 ( J )**2)**5*CSjRT(Al( J )**2+01 ( J)**2+B?( J)**2)**0) ) 
FM517=1.16*(Z1+Z2+Z3+Z4) 

ZZ1=( A1(J )*A2( J )*( 2.*A2(J >**2+3. *( Bl( J) **2+02 ( J ) **2 ) ) ) / ( 4. * < 01 { J )* 
1*  2  +  B2 ( J )**2 ) **2*08wR 1 ( A  2 ( J ) **2+bl ( J ) **2  +  02 ( J ) **2 ) **3 ) 

7.  Z2=-A 1  ( J  )**3/3.*(A?(J  )*(  1 9.*  (  bl  { J  )  **2  +  02 1  J)  **2)  **2+20.  *A2  (  J)  **2*( 
101 (J  )** 2  +  B2 ( J )**2)+>  .*A2< J  >**4)/( 8. *( B 1 ( J) **2  +  82 ( J) **2 ) **3*DSGRT ( 
2A2(J)**2+Bl(J)**2+b2(J)**2)**5)) 

ZZ3=A1 (J )**5/10.*( A2( J )*( K5.*(B1(  J)**2+02( J) **2) **j+210.*A2( J)**2 
l*(Bl(J)**2+02(J)**2)**2+16d.*A2(J)**4*(01 ( J) **2+B2 ( J ) **2 ) +48.* 

2A2  ( J  )**6  )  /  (  ifc.*(  HI  (  J  )**2+B2<  J)**2)  **4*DS«1RT(  A2(  J)  **^+01  ( J)**2+ 

3b2 ( J )**2  >**  7  )  ) 

ZZ4=-A1( J )**7/42.*( A  2 ( J )*( 945. *( b l ( J ) **2+b2 ( J ) **2 ) **4+252' . * A2 ( J ) 
1**2* ( 01 ( J )**?+B2( J )**2 >**3+3024. *A2( J) **4*( 01 { J) **2+0? ( J) **2 ) **2+ 
il728.*A2(J)**fa*(Bl(J)**2+B2(J)**2)+384.*A?(J)**P)/(32.*(01(J)**2+ 
362{J)**2)**5*0S(JKT(A2(J)**2  +  01(J)**2  +  F2(  J)**2)  **9)  ) 

FM518=l.lfc*( ZZ1+ZZ2+ZZ3+ZZ4) 

ZZZ1=( A2(J )**2*( 2.*A2( J)**2+3.*(01 (J) **2+b2(J)**2) ))/(4.*(Bi(J)**2 
l+B2(J)**2)**2*DSyRr(A2(J)**2+Bl(J)**2+02(J)**2)**^) 

ZZZ2=-A2 ( J  )**3/3.*(  A2(  J  )*(  l5.*( H 1 ( J)  **2+B2  (  J )  **2  )  **2  +20 .  *A2  (  J  ) **2* 
l(Bl(J)**2+B2(J)**2)  +  8.*A2(J)**4)/(8.*(tl(J)**2  +  ii2(J)**2)**3*DSWRTl 
2A2U  >**2  +  61  ( J  )**2+B2(  J  )**2)**5)  ) 

ZZZ3=A2<  J  )**5/10.*{  A2(  J  !*(  K5.*{B1(  J)**2  +  b2  (  J )  **2  )  **3+21-.  . *A?  {  J ) 
1**2*  (  01  (J)**  2  +  02  (  J  )**2  )**  2+168.  *A2(  J)**4*(P1  (  J  )  **2  +  B2  ( J  )  **2  1+-4  8 .  * 
2A2(  J»**6)/{  16.*(B1(  J)**2+B2(  J)**2)**4*DS«JkT(  A2(  J)**2  +  01(  J)**2  + 
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I  3F2(  J  )*?2)**7)  ) 

j  ZZZ4=-A2(  J}**7/42.*{  A2(  J)*(  04  5.*  (B1(J)  **2  +  82  (J)  **21**4  +  252,  .*A2< J) 

f  1**2* ( HI (J )**,:  + B2(J l^-i  )**3+  3324. *A2 { J ) **4* ( B1 ( J ) **2+02 ( J ) **2 ) **2  + 

'  21  Z2o .*A2( J )**o*(oi( J )**2+B2( J ) **2 )  +  364 . *A2 { J) **6)/ (32.* (01 ( J)**2  + 

S  3i-2  ( J  )**2  }**5*DS;RT  (  A2(  J  ) **  2+H  1  (  J  )  **?  +  K2  (  J )  **2  1  **9)  ) 

I  ^'510= 1. 16* ( //Z1+Z/.Z2  +  ZZZ3+//Z4) 

f  (  MO  7  =  VTFTi**«:*F''  5i  7  +  j  .*VTHf  1  **2*FK 5 1 H+ VTH1  l**2*FN5l9 

!  r  F m  l "  =  v  I H T  1  *  V  T W / L S  v k  TIP  l  ) *  ( DA  TAN  {  A  1  {  J  )  /0  SORT (  B  H  J)  **2+b2  I  J  )  **2  )  ) 

l  -  .  i/(  (CSt.RHOK  J  )**2+h2(  J  )**2)  1  **3 1 +A 1 ( J ) /(  (t?lf  J !  **2  +  ci2  (  J  )  **2  )  *  ( A1  ( J  ) 

:  2v*2+B1( J )**2+b2( J )**2) 1 ) 

:  FFMi  1  =  V1H  1* V TW/DSOR T( ? I  )  *  { i  A  TAN  (  A2  (  J  )  /CSGRT(  01  (  J  )  **?  +  02  (  J  )  **2  )  ) 

i  /  (  (l/SUKHPlt  J  )**2+B2{  J  )**2)  1  **  3) +A2  (  J )  /  (  (61(J)**2+82(J)**2)*( 
2Al(J)**2+( l(J)**2+h2(J)**2))) 

;  -  F  FM1 2=  CSOk T { P  1 1  *V1  w**2/ (  4  .*i)SOR  I  (  B 1  (  J  )  **2+  B2  (  J  )  **2  )  *  (  01  (  J  )  **2  + 

1  h2 ( J 1**2 ) ) 

FMC-.'.  ti=~2  .  *:<*C*i3l  (  J  )**2/P*(bMJC7+FFKlv.  +  FFf/ll  +  FFM12) 
i  -  F  Fiv  1  3=C*  61  A  *  V  T  h  T  i*A  1  (  J  )  /  (  OSQR  T  (  P  I  ) *(  Al ( J ) **2+c 1 < J > **?  +  B2 < J 1 **2  )  5 

FFKl4  =  C*c;iA*VTHTl*A2(  J  1  /  <  C’S.R  T  (  P I  1  *{  A2  (  J  )  **2  +  0 1  (  J )  **2  +  62  (  J  )  **2  )  ) 
FFMl*j=  VTH  1/ {  2.*DSCkT(i>1  )  )*(  LA  TAM  {  A 1  (  J ) /DSQRT  (  6 1  (  J ) **2+B2 I J ) **2 
1 )  )  /  (  (uS>,Kl  (81  (  J  )**2  +  i'2<  J  1**21  )**3)+Al  (  J)  /(  (  E 1  (  J  )  **2+B2  (  J  )  **2  )  *  ( 

2  A  l  ( J  )**<:  +  bl(  J  )**2+B2(  J  )**?))  ) 

FFMl6  =  vrhl 1/ (2.*bS0R  r (p I ) ) * ( DA  TAN ( A2 ( J ) /DSURT ( B1 ( J ) **2  +  B2 ( J ) **2 
l))/((US..'KT(Hl(J)**2  +  F2(J)  +  *2))**3)+A2(J)/((Bl(JI**2  +  B2(J)**2)*( 
2A2IJ  )**  2  +  Hi ( J  )**2  +  tl<r  (  J  1**2  )  )  ) 

F  F /•'  1  /  =  V T W * D S OP  T  C  '->  I  1  /  (  4 . *DS(  R  T (  B l  (  J  )  **2+B2  (  J )  **2 )  * ( B1  (  J )  **?  + 
lhc ( J 1**2) ) 

PMOCk  0=-2.*L'TA*C*f*  l(  J  )  **2*  (  FFM1  5+FF  M16+FFM1  7  ) 

F.s!5  •  1=FM0U  +  FMCJ  >c  +  FF.)  13+FFM  14+f MOC09 
1  M49=  CC •>  .*U  1  (  J  ,  X ,  VI ,  VV°  1  **2*B  l  {  J )  *FM5C  1 

r FK1 =1.41 4*VTHT 1**2* A1 ( J 1**2/ ( 2. * ( A 1  ( J >**2  +  2. *B2( J) **2 ) *DSCRT ( A1 ( J 
l)**2+h2(J)**2)l 

FF*..2  =  VTHT1**2*A1(  J  1*a2<  J  )/(  <  A <: (  J  )  **2  +  2 .  *B2 (  J )  **2  )  *DSORT  (  A 1  (  J )  **2  + 

1 A  2  ( J  )**2+Z.*H?(J  )  *  *  2  )  ) 

FH-1J=VTHT1**2*A1(  J  )*A2(  J  )/(  C  A  1  (  J  )  **2  +  2. *B2 (  J )  **2  )  *DSGRT  (  Al  ( J 1 **2+ 

1 A  2  ( J  1  *  *  2  +  2 .  *  b  2  (  J  1  *  *  2  1  ) 

FFM4=1.414*VT|-T1**2*  *2(  J  )  **2/ {  2.  *  (  A2  (  J  )  **2  +  2 .  *82  <  J )  **2 )  *DSCRT  ( 

1 A2  ( J  )  *  *  2  +  fi  2  (  J  )**c)  ) 

FFM6=VTHTl*Al(J)*VTl</(Ai(  J  )  **2  +  2.  *B2  (  J)  **2 ) 

FFMB=VTHT1*A2( J)*VTk/(A2( J)**2+2.*B2( J)**2) 

F  F  1=  2  .  *  R  *  C  /  (  C SO P  f  (  P  1  )  *P  1  *  (  FFMi  +  FFF'2  +  FF  K3  +  FFM4  +  PFM5  +  FFV6  1 

Xl= ( Al ( J  )**2*(2.*A1( J )**2  +  6.*82( J)**2) ) / ( 16 . *02 ( J) **4 * ( DSORT ( 2 . * 

1 02 ( J )** 2  + A 1 ( J 1**2)**  3) 1 

X2  =  -A 1 ( J  )**3/3.*( Al( J )*(6  ..*B2( J)**4+4C.*A1 ( J ) *B2 ( J ) **2  +  6 . * A 1 ( J) 
2**41/  (64.*B2  ( J  )**o*[. SCR T  (  2.*b2(  J)**2+A1(  J)**2)  **t>)  ) 

X  3= A 1  ( J  )  ** 5/  1 .  .*  (  A  1(  J  )  *  (  1 : 5 .  *  (  2 .  *B2  (  J )  **2 )  **3+  2 1 0 .  *  ( 2 .  *'32  (  J )  **2  * 
LA1( J) ) **2  +  16fc .* ( 2. *F  2 ( J ) **2 ) *A1 C  J 1 **4+48  4  *A1 ( J) **6 ) / ( 16 . v ( 2 . *B2 ( J ) 
2**2)**4*CS(jR1  (2.*B2(  J)**2+A1(  J)**2)**7)  ) 

X4=-A1  (J  )**7/42.*(  A1(J  )*(  045. *<  2.*B2(  J ) **2 ) **4+2520. * (2 . *02 i J ) **2 1 
1**3*  Al  ( J  )**2  +  3:>24.*(  2.*B2(  J)**2)**2*A1  (  J)**4+1728.*(2.*B2  (  J)**2  ) 

2* All J ) **fc+384.* A 1 ( J )**4)/( 32. *{ 2.*B2( J ) **2 ) **b*DSCR T ( Al ( J ) **2  + 

32  .*02 ( J )**2 )**9) 1 
FM527= 1. I6*( X1+X2+X3+X4) 

W 1 - ( A 1 ( J  )*A2(J1*<2.*A2(J)**2  +  6.*B2(J)**2))/(4.*(2.*B2(J)**2)**2* 
lDbUKT ( 2.*B2( J 1**2+A2( J )**2)**3) 

W2  =  - A  1  (  J  )**3/3.*(  A2(  J)*(  i 5 .* (  2. *B2 (  J  ) **2  )  **2  +  20. *2 . *i>2  {  J )  **2*A2  (  J ) 

1  +d. * A2  i  J  )**4  )/(«.*(  ?.*B2(  J  1**2)** 3*0 SORT (2.  *t,2{  J)  **2+A2 ( J 1 **2 1 **5 
c)  ) 

V»3=A1(J  )**t>/li..*(A2(J)*(  K6.*(2.*B2(J)**2)  **3  +  210.*J2.*B2(J)**2*A£, 
1( J)  1**2  + 168 .*£ . *02 ( J )**2*A2 ( J ) **4+48. *A2 { J) **6  > / ( 16. * ( 2 . *02 { J ) ** 

22 ) **4*CS0RT (2.*02(J)**2+A2(J)**2)**7) 1 

W4=-A1(J  )**7/42.*(  A2(.J  )*(  945.*(2.*B2(J)**2)  **4+25cJ.  *(2.*B2  (J)**2) 
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i**3*A2( J  )**2  +  1  /«£.,.*  2. *1  c(  J  )**2*A,.  (  J)  **6+384.  *A2  (  J)  *<-4  +  302*.  *12.* 
2h2(  J  5-*  2  )={==?  ^#-\  2  (  J)**4)  /(  32 .  -  (  2.*F2(  J)  **2)  **t>*DSCRT  (2  .  *  bZ  ( J  >  *v2  + 

3  A  2  (  J  )  *  *  2  J**  ) )  ) 

FM52B=  1 .  It*  Ul+w*.  +  W  3  + 1%  4  ) 

Win  1  =  (  A 2  ( J  )**  2=;-  ( <.  .=>'•  A2  (  J  )**2+o. *b2(  J ) **2 )  )  /( 16.  *b2  ( J) **4*DSORT  ( 

1 2  •  *  F  2  ( J  )  v  *  2  +  A  2  (  J  )  *  *  2  )  * *  A  ) 

WW  2=  -  A2  (  J  )**3/3.*(A2(J  )*(  «'0.  *h2  (  J  )  **4+4C. *A2  (  J )  *f>2  (  J )  **2+C  •  *A2  ( J  )  * 
i*4)/U-4.*i>2(J)**0*DSv,r<T{2.*)  2  (  J )  **2  +  A<:  {  J  )  **2  )  *  *5  )  ) 

WW3=A2(J  )**■>/}<.  .*(  A2(  J  )*(  1  ‘>.*(2.-*P2{  J ) **2 ) **3+2 1 0. * <2 . *L2  (  J)**2) 
l**2*A2 ( J  )**2  +  16i.*2.*I>2(  J  )**2*A2(  J ) **4+48. *A2 (  J)  **6)  /  ( 16.*  (2.* 

2  H  2  ( J  )**2  )**4*rS.,-:T(  2  ,*F2(  J)**2+A2(  J  )  **2)  **  I)  ) 

Wri4=-/.2(  J  )**7/4?.*(  A2(  J  )*{  04  4.  *(  2.  <.  *b  2  (  J )  **2  )  **4+282^  .*(2 .*62  ( J) 
i**?  )**3*Ac( J  )**<:+';  .2  4.*(  ?.*F2(  J  )  **2 ) **2*A2 (  J )  **4  + 1 72 8 .  *2  .  *02  ( J)**2 
2*  A2  ( J  )v*fc  +  3L4.*42(  J)**4) /( 32.* <2. *h2(J)**2)**5*0S0RT  (A2(  J)**2  + 
j. 2 . * b 2  ( J  )**?)** y) ) 
r  j**1  b  2  •)  -  1 .  i  6  *  (  w  W 1  +  ».  w  2  +  w  W  3  +  W  w  4 ) 

FFM7=VTFT l**2*FNo2  7  +  2 .  *  V 1  H T 1 **2 *FM 52 8+ VT H T 1 **2 *F M529 
F  F M 1 0  =  V T  +1  T  1  *  V  T  W  / !’/  S  3 I  (  P  1  )*  (  PA  I  An  (  A  1  (  J  )  /  (  1 . 4 14  *B2  (  J  ) )  )  /  (  ?  .  828  <  R2  (  J  > 
1**3  MAI  ( J  )/  (  2.*u2(  J  )**2*(rtl(  J  )**?+/. *62 (  J)**2)  )  ) 

FFM  ]=VIF  n*VTW/i)MKT(PI  )  * ( 0A | AN( A2 ( J > / < 1 . 414*82 ( J ) )) / ( 2 .82S*C 2 { J ) 
1**3)  +  A  2  (  J  )  /  (  2  .*F>2  ( J  ) **  2* ( u  1  ( J  )**?  +  2.*f‘2(  J  )  **2  )  )  ) 

I  FM12=V1  W**2*l  S-'VT  (P  1 )/(  ic.*»2(  J  )**3) 

i  F2  =  -2.*P.*C*r3c  ( J  )**2/P*  (  FBA*  /  +  TFMH  +  FFM1+FFM12  ) 

r  FM 1  j=  C*  F T  A* VT  H F 1  *4  l  (  J  )  /  (  D  S>.'R  T(  P I )  * (  A1  (  J )  **2+2  •  *fc2  (  J  >  **2  )  ) 

FFM14  =  C*  ill  A*V  1 HT  I*  A  2  C  J  )  /  (  T  Si.F  1  ( P  I  )  *(  A2  (  J  )  **2+2 .  *B2  ( J )  **?  )  ) 
FFM15=VTFT  1/ (  2.*L>SwRT(P  1  )  )*(I)ATAM  A1  (  J)/(  1.414*0?  (  J)))  /  (2.826*02  ( J 
1  )**3  )  +  A 1  ( J  )/(  <2.*'-2(  J  )**2)*(F  1«  J  )**2+2.*b2(  J)**?)  )  ) 

FfW  1 6  =  VI  FI  l/(2.*rS0r'  I  (£>  I  )  )*(0ATAN(  A2(  J)/(  1.414*f,2  (  J)  )  )/  (2.826*62  (J 
l)**3)+A2(J)/((2.*t2(J)**2)*(Fl(J)**2+t»*R2(J)**2))) 

F F M 1  7 -  V T  W  v D 6 W 4  T  (  2  •  *  P  I  )  /  (  lo .  *8 2  ( .1 )  **3  ) 

F  F  3=  -  2  .*C*  L  T  A*  ii  2  (  J  )  **?*  (  F  F M  l  5+FFM  1 6  +  F  F  Ml  7 ) 

FMV  2=FF1+FF2  +  FF3+FF'  13  +  FFf  14 

FM 6  j  =  CC5  1*U  1  (  J »  X,  VL  ,  VVP  )  **2*F2  (  J  )  *T-M5  .'2 

SUM1=FM:  1  +  FM>.  ;>+FM.  4  +  HUo  +  FM.  c+FMCY+FM  .-8+FM09+F M10+FM1  1  +  FM12  +  FR1  i 
SUM  2=  FM 14  +  FM  1  5  + IV*  16  +  F  f  i  7  +  F N x  F  +  FM1 9+F  v2  '.+  F M2 1+  F M22 +  FM2  3+FM24+FM26 
SUM3=FM26  +  FM27  +  FM28+f-,'  29  +  FM3'-  +  FM31+FM32  +  FM33+FM34+FM35+FM36+hN37 
S U M4  -  F M,  16  +  FM  3 c>  +  F <-  4 .  +F'  4  1 +  F *?  +  FM4  3+F  V44  +  FM45+F  M40  +  FM4  7  +  F M4 8  +  F  M49 
FM2=  (  SUM  l  +  SUM2  +  Si;M3+3UMA+FM-JV  ) 

RFTURN 
t  N  D 

FlJiNCT  ION  F c  1  ( J  t  X ,  A  1 »  n2,  h i » 1 2 » A  1 P  ,  A2?  * F> IP  , B2P  »P  t  VTW » VT 1  .VThTI ,VL. 

IV  VD,  VVPP.  CT»iTl,DlWtU  1  ,KH'!l,r-RHlll ,  VT1PX) 

IMPLICIT  RFAL*  8 ( A-h) ,  -’CAL*  8(  C-Z  ) 

CUMMUiV  GM  lG  A  1  ♦  l)M  -:GA?»  s: ,  ?  I .  £  I A  ,C  »PR  »0  Yb  t  PI  t  P2  t  P3  » Twl » TW2 

COMMON  TW3tTiltT12»TU,  TFT  1 1 ,  THT 1 2 ,  TH  I  13,PKGC  ,RIU'l  1  .RFC12  »RHL1  3 

COMMON  DRh011,DKH012.f  RH013,  VTV.PX,  VTHDXtOTKl  ,DTK2  ,l)TW3,VLl  ,VL2 

CUMMCM  VL  3tr.rjMGA,VVPl,WP2»VVP3tVVPPl,VVPP2,  VVPP3»H,nTl  1  ,GT12*CT13 

COMMIT  C4,CCpl,C4ytCC<r.CF‘>,Cc3,CC£3,CC£5,CC5 

COMMON  TlPXl.T 1PX2 » T IPX 3 , DELTA  1 , Fc L TA2 » J 1  ,CP 

COMMON  CTHTlltDTHI 12.0 1 HT 13 

IlIMfeNS  ILN  X(  m,  Al(  I  2)  »A2(  12)  ,U1(  12)  ,?!’(  12)  ,A1P(  12)  ,A2P(  12) 

C 1  MENS  ION  blP( 12),62P( 12) 

CLl=-.b*CP*CSOR l( t./PJ ) *OFLTA 1**2 

CE2=-CP/CbORT  (P  I  )*DL-L1  A  1*DELTA2 

CE3=.25*CP*LbOKT(2./iM  ) *0£LTA1**2 

Cc4=-CP/PI 

Cb5=CE2 

CE6=-2.*CP/P  I 

CE7=-CP/C:SQRT(P  1  )*CFL  I A  1 

C£8=-2.*CP/(P  I*l)SuRT  (,JI  )  ) *OMEGA  1*0<2L T A  1**2 
CF9=-2.*CP/  (PI*L)b'vRT(P  I  )  )*OMrGA  1*06L TA  1  *DELTA2 
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Cl  1-  =-  2  •  *  C  P  /  (  P  l  *  0  Vm  T  ( P  l )  )  *lMCGA  1  *DELTA  1*2 
CE  1 1  =  Ctv 

C  t- 1 2  =  -  2 .  *  C  0  /  ( '‘'  [  :-'OSc£  HP  I)  )*  (MEGA  2*0ELTA  1**2 

CM3=CE*5 

CE  14=  ..fc  1 2 

C  1 8  =  -  2 .  *  C  P  /  ( *  0  h  J  R  T  (  P  1) )  *  t '  M  L:  G  A  2  *  D  E  L  T  A 1  *  0  E  L  T  A  2 
Cci6=-CP/C^GPI (PI )*(jvJ GA i*0bL  TA  I 
CE  1  7  =  -CP/rS‘.!P  I  ( P  1  )*tiMGGA2*l)EL  IA1 
C  b  1  =  -  C  r.  t 

j  C 1 19  =  2  .*CP  /  (  P  I*  DSU?.  T  ( P  I  )  )  t'i^iixjA  l*Ofc  LTA  1  *DfcLTA2 

j  Cl2  =c.:j  Cp  /  (  P  I  ti  S“K  T I P  I )  )*UMCGA2*DCL  TA 1**2 

tE21  =  2.*CP/(Pi*i>yjRT(PI  )  )*UMEGA2*DELTAl*DELTA2 
‘  *  CE22  =  4.*CP/(PI*C:V>mr(.~  I  )  )*()tfi:GAl*CbLTAl**2 

Ci.2 3=4 . *C  J  /  ( P  I* 9S(  R  1  ( P  I  )  )*OMFGA l*DELTAi*DELTA2 

CE24=2.*CP/(P  lOiORTI^I  }  )*nvEGAl*OELTAl**2 

0.23  =  2. *CP/(Pl*D$.v'RT  (PI  )  )f)KCGA  1*DGL  TA1*DEL  TA2 

Cb2C=Ct8 

Cb2  7=Cb9- 

CG28=-Ct22 

CE29=-4.*CP/(P  I*DS<V.7  (PI  )  ) *UMCGA  1  *DCL  TA1  *I)ELTA2 
Ct3  =  4  .  *CP/  ( P  lOStfR  f  ( P  I  )  )*l •MCGA2tnE  L  FA  1**2 
CEi  1  =  4  .t CP  /  ( P  I*l)SO« T (P  I  >  )*(iKESA2*CELTAl*0ELTA2 
Cb32  =  2.*CP/(PI*05,)P  I  ( iJ  I  )  )*i)M»'GA2*DELTA  1**2 
C  C  3  3=  2 • *  CP / ( P  I*  OSu‘(  T  ( P  I  )  )  *OMFGA2*DEL  TA  1 *OE  LTA2 
Cbj4  =  -0  32 
CC33  =  -Cc'J3 
Cl36=CE20 

Cci7=-4.*CP/ (PI* USSR f ( P I ) )*UMCGA?*DELTAl*OELTA2 

Cb3d=.  3*0.8 

CGJ1-CG* 

Cb4=-Cb3d 
CC4l=C£ 19 

Cc42=  -  CP/(PItf)S.vrir(PI  )  )*UMEGA2*DCLTA1**2 

Cb43=-2.*CP/  (PI tUSOKKP  I )  )*0MEGA2*DELTA1*DELTA2 

C£44=-CE42 

Cb4  5=-CI:43 

C  t4b=  ~C  E  4 

CE47=2 .*Cl46 

Cb48=-2  .*Ct3*C 


Ce49=2.*CG2*C 

CC5C  =  4.tCP/  (P  ItOSCRKP  I  )  )  *fi.vEGA  1  **2*0E  ITA1 
Ci51=8.*CP/( Pl*DSwRT(PI ) )  *UftEGAl  *f)MEGA2*DELTAl 
CE52=4.*CP/(PI*DScR  I  (  J  I  )  )*I..NFGA2**2*0ELTAl 
CC53=-CE  i 
Ch54=-CE? 

Cr53=CE54/GELTA2 

CE56=CE53 

CE57=Ct54 

CE58=Cfci>4/CLLlA2  \>" 

CE 59= CFO /CP 

CE6'j  =  -2.t()MtGAltr.ELTAltDELT/.2/(PItOSOKT(  PI  )  ) 
Ct61  =  -UMEGAl*rEL1 Al/USQR H  PI) 
CE62=-2.*(JMeGA2*D"L  1  A  l**2/(  P  l *0.fJRT(  P l )  ) 

CE63  =  -2 .*GMEGA2*0EL  T  A 1*UELTA2 / ( P I *9SCRT ( P I  )  ! 
CE64  =  -0M  tGA2*0EL  f  A  l/PSC'P.  T(  P  I  ) 

C£65=-2  .*UMEGA  1*0 ‘LTA i**2/ (  P  1*L)SQR  Ti  0 1  1 1 
Cfc66=-2 .tf'MEGAl *DEl TA  1  *UEL T A 2 /  (  P I  *D SORT (  PI  )  ) 
Cfc67=CEol 
CC68=CE62 

CE69=-2  .*IJME(>A2*DEL  TA  1*0£L  TA  ?/(  P I  *DSQRT(  PI  )  ) 
CE7C‘=-0MEGA2*CELTA  l/DS'iKT(  PI  ) 
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Cb71=.5*CS'.Kl  (2./?!  )*f-ELTAl**t 
C£72=l;EL  r^l*Prl  Tm?/DSi.K  I  (  P  I  ) 

CE73=DfcLTAl/Dl>0«I  (PI  ) 

C£74=.5*CSbRr<2./PI  )*r.EL  f A  1**2 
Cb75=Cb72 

CE76=D6L  lAl/f'SCRHPI  ) 

FFEl  =  Chl*VTt-Tl*C>FHTl/( A  1C J )**?) 

FFC<r=CL-?*Vl  hTlvnlhT  1*A2(  J  )  /(  A  1  (  J  )  **2*0  SGRT(  A 1  (  J )  **2  +  A2  (  J )  **2 )  ) 
FrC3=CE4*VTh  T  l**<:*im/Al  (  J) 

F  F£i>  =  CE6*VT  HT  I  A?  (  J  )*DYD/(  A 1  (  J)  **2+A2  (  J)  **2  )+CE7*VTHTl*DTI»/ 

llAKJ  1**2) 

FFE6=Ch8*VTFTi*VI  DPX*U1(  J,  X,  VL  ,  V VP  )  *(  DA  TAN (  b  1  (  J )  /  (  1 . 4  1 4*A1  (  J)  )  )  / 

1  ( l  .4 14*A  1  ( J  )  )+til(J  )*DATaM(  A  1  (  J  )/OSOPT(Al  (  J)**2+Bl  (  JJ  **2)  )/ 

2 A 1  ( J  )**2*i;S.VRTt  H(  J  )**2+bl(  j)**2>) 

FFE7=CE9*VTpTl*VlhPX*l'l  (  J,  X,  VL  ,VVP  )  *(  A2  (  J)  *DAl  AN( bl  (  J  )  /DSORT  ( 

1A1  (  J  )**?  +  <«2  (  J  )**2  )  )/(  Alt  J)**2*DS0RT(A1(  J)**2+A2(  J)**2)  ) +U1 ( J )  * 

2  CAT  Ai|  (  A2  ( J  )  /l.'SOR  I  (  A 1  ( J  )  **2+t;  1 ( J ) **2 )  )  /  ( A  1  (  J )  **2*DSGR  F  ( A]  (J)**2+ 
3bi(J  )**2-)  )  ) 

F F&8  =  CE If  *  V  r  HT  l**2*Ul(  J  *  X ,  VL  ,  V  VP  )  *A  1 P  (  J)  *(DATAN(i?l  (  J )  /  1 1 . 414*A1  (  J ) 

1)  )/(2.62b*Al(  J)**3)+L'i(  J)/(2.*A1<  J)**2*(ftl(  J)**2+2.*A1  (  J)**2)  )  ) 
rF=9=r.Ell*vmi**2*lil(  J,X, VL,VVP)*A2P(  J)  *(l)ATAN(0i  (  J)/OSWKT( 

1A1  ( J)**2+A2(  J  )**2)  l/{  (DSi<RT(  Al(  J)**2+A2(  J )  **2  ))**3)  +  Bl(J)/(( 
?Al(J)**2+A2(J)**2)*( Al( J)**2+A2( J)**2+Ul ( J)**2)  )  ) 

FFE1'"  =  ClH*VIFiT  l*VThPX*Ul(  J,X,  VL t VVP ) *( DA 1AN{ B2 (  J)/(  1.41 4*  All  J  J  )  ) 
l/(  1 . 414* A  1 ( J  )**2  )  +C2( J  )  *DATAfj  ( A 1  (  J }  /DbDRTI  A1  (  J )  **2+b2  (  J  )  **2  )  )  /  ( 

2A1  (J)**2*C$<„'RT<A1(J  )**2+b2( J )**2 )  )  ) 

FFEll=Cf  U*vrHTl*VThPX*Ui(  JtX»VL  tVVP)*(A2(  J)  *DA TA,\  ( b2  (  J ) /DSL'RT  ( 

1 A 1  ( J  )**2+A2(  J)**2)  )  / (  A 1  (  J)**2*DSU«r(Al  ( .J)  **2 +A2  (  J)**2)  >+B2(J)* 
2CATAM(A2(J  }/i:SORI  (  Al(  J  )**2+L2(  J)**2)  )  / C  A  1  (  J )  **2  *1>SQRT  Ul  (  J)**2+ 
Jl.2(  J  )**2) )  ) 

FEE  1 2=Cti  14*VTHT  l**2*Ul  (  J«  X  *  VL  *  VVP  )  *A1  P  (  J )  *(  DA  TAN  ( 62 ( J)/  ( 1.414* 

1A1 ( J ) > )/(2.d2«*Al( J )**3)+F2t J)/(2.*A1 ( J)**2*(B2( J)**2+2.*A1 ( J)**2 

2)  )  ) 

FFE13=CE1‘>*VTHT1**2*01(  J » X, VL , VVP) *A2P ( J > *( DA  I  AN ( b2 (  JI/DSQRH 
1A1  (  J  )**2  +  A2(  J  )**2>  )/(  ( (? SOR T (  A  1  (  J  )  * *2 ♦  A 2  (  J )  * *2  )  )  **3 ) ♦  B2  (  J  )  /  (  ( 

2A1(J  )**2+A2( J )**2)*( A 1 ( J )**2*A2( J)**2+B2( J)**2) > ) 
FFE14=CC16*V7HT1*L1(  J, X, VI , VVP) *VTfcPX*bl  (  J)  /  ( A1  ( J)**?*DSORT  ( 

1  A 1 (j )**2  +  Dl(J  )**2)  ) 

FFE15=CL17*VTHT1*U1(  J» X» VL, VVP)*VTWPX*B2( J ) / ( A 1 ( J) **2*DSORT ( 

1A1 ( J ) **2  +  b2  C  J 1**2  )  ) 

FFE16=CEH*VTHTl**2*bluX(  VVP,  VL)  *A1  (  J)  *(  DAT  AN<  D1  (  J )  /  ( 1 . 414*  A1  ( J  ) 

1)  )/{2.828*Al(J  )**3)+Hl(  J  )/(c.*Al(  J)**2*U1(  J)**?+2.*A1  (  J)**2)  )  ) 
FFE17=CEl9*VTHTl**2*blPX(VVP,VL)*A2(J)*(DATAN(E51  (  J )  /  DSORT  (  A1  { J  )  **2 
1+A2( J)**2) )/( ( DSDRT (A1(J)**£+A2(J)**2) ) **3) +bl ( J ) / ( < A 1 ( J ) **2  + 

2A2( J  )**2)*(Al( J )**2+AH J )**2+rfl( J)**2) ) ) 
FFE18=CE2<.*VThTl**2*blPX(VVP»VL)*Al(J)*(DATAN(B2(J)/(l«414*Al ( J) 

1)  )  /  (2»826*A1(,J  )**  3 ) +F  2  i  J  )/(  2.*A1  {  J)**2*(  b2(  J)**2+2.*A1  {  J)**2)  )  ) 
FFE19=Cfc2i*vrFiTl**2*UlPX(VVP,VL)*A2(  J)  *(  DATANt  B2  (  J)/OSQrtT<  All  J)**2 
1 +A2  { J  )**  2  )  )  /  (  (DS..R1  (  AH  J  J**2+A2(  J)**2)  )**3)+B2(  J)  /  (  (  A1  {  J)**2  + 

2A21J  >**2)*(Al(J)**2+\2< J)**2+H2( J)**?) ) ) 

FFE2C-Cb2^*VTFT l**2*blPX ( VVP , VL) *H IP ( J ) *Al ( J ) / ( ( 2 . *A 1 ( J ) **2+ 

1B1(  J  )**2)**2) 

FFE21=CE23*VTHTl**2*l H  J,X,VL, VVP)*B1P( J)*A2 ( J)/( (A1 ( J)**2  + 

1A2( J )**2+Bl( J )**2>**2) 

FF622=CE24*VTHTI**2*U1PX( VVP , VL ) *A 1 { J) /{ Bl ( J) * ( ? . *A1 { J) **2 +  61 ( J ) ** 
12)  ) 

FFE23=CE23*VThTl**2*UlPX(  VVP,VL)*A2(  J)  /(  81  (  J)*DSORTUi  (  J)**,H 
1A2(J  )**HH1(  J  )**2)  ) 

FFE24=CE26*VTHT1**2*U1U,X,VL,VVP)*C1P(  J)*Al ( J)/ (bl ( J)**2*( 

12.*A1 ( J )**2+b 1 ( J )**2  )  ) 

FFE25=Ch27*VTHTl**2*L'l{  J,X,VL,  VVP)  *B1P(J)*A2<  J)/(  till  J)**2*( 
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i  a  i  ( j  -)  *  *  2  +  a  2’  ( J  )***:+■  ft  1(  J  )  *  *  2 )  5 

rFt:2  6=CE2fc*VlHTl**2vUl  (  J » X t VL » VVP ) *B1P ( J)*A1  (  J  )  /  (  ( 2  .  *A1  ( J)**2  + 

1 F  1  (  J  )  *  *  2  )  *  *  2  ) 

F FE2 7=Cfc .i  3*VThT  i**£*ij  1  (  J  «  X ?  VL » V VP)  *B1  P  ( J  )  *A2  {  J)  /•(  (  A l  (  J )  **2+A2  (  J  ) 
i**2  +  bl  ( J  )—v  )**2) 

If 528= Cl  3- *V J HT 1**2*U 1 < J,X,VL, VVP)*b2P< J)*A1 { J)/i { 2 . *A1 ( J ) **2  + 
i  f  2  ( J  )  -•'■’i'?  )  **2  ) 

F  r  5/O=0E  3  i^VTM  1**2*U1(  J » X .  VL  *  VVP)  *B2P  (  J )  *A2  (  J)'/(  {  A 1  (  J  )  **2  + 
l  A2 ( J ) **?  +  t  2)J)**?)**2) 

l-F-i:  i  _>=Cl 32*V Till  1**2*U1P>U  VVP,VL)*A1(  J)/(  (32  (  J)  *<2.*A1  ( J)**2  + 

1  [•  2  (  J  )**2)  ) 

FFci  1=CC ’23*  VTOT  1**  2*  L‘  1  P  X  {  VVP  ,  VL)*A2(J)/(t2(J)*(Al(J)  **2  + 
l  A  2  ( J  )  *  *  2  +  b  2  (  J  )  *  *  2  )  ) 

rF6i2=CtJ^*VTf Tl**2*01< J,X,VL, VV>)*b2P( J)*A1< J)/(t>2( J)**2*( 

1 2 .  *  a  l  ( J  )  *  *  /  +  L5  2  (  J  )**  2  )  ) 

F  FF  3  3=Ct  2 1>*  V Tl;T  l**2*0i (  J , X , VL , VVP) *B2P < J ) *A2  {  J )  /  ( L2  (  J  )  **2*  ( 

1AKJ  )**2  +  A2(J  )**2  +  P2U  )**?)  ) 

F  FE  34=Cl2o*  V  TllT  L**2*U1(  J  ,  X  ,  VL  ,  VVP )  *u2P  (  J  )  *A  1  (  J)  /  (  (2.  *A1  (  J)  **2  + 

132(J  )**2  ) **2  ) 

FF5  3B  =  Ci:3  7*VTHn**2*Ui(  J,X,  VLtWP)*B2P(  J)*A2(  J)/(  (  A1  ( J)**2+ 

1A2IJ  )**2+82( J  )**,;)**  2  ) 

F F b ‘3ii=  Ct  28* V  THT  1**2*L  1  P  X (  V VP  f  VL  )  / (  A 1  (  J  )  *B1  (  J )  ) 

F Ft  3  7=05 39*VThTi**2*OlPX( VVP»VL )*A2( J ) / C  B 1 ( J )*( A1 ( J) **2+A2 ( J)**2  )  ) 

F  F b  3F  =  CL 4  >.>*' V  T|, T  J  **2*0 i  (  J t X , VL , V VP) *B1 P ( J ) / (  A 1  (  J )  *Bl  (  J )  **2  ) 

F  FG  3'A=CC  A  l*V  ThT  I**2*01  (  J »  X ,  '/L  ♦  VVP )  *H IP  ( J  )  *A2  ( J ) / ( bl ( J ) **2*  ( 

1A1 ( J)**2+A2( J ) **2 ) ) 

F F b A  >Cf  A2*VTHT1**2*U1PX(  VVP  ♦  VL  )  / {  A 1  (  J)  *132  (  J)  ) 

FFF4 1  =  CL43*VTFiT l**2*0iPX( VVP,VL)*A2C J > / ( B2 ( J)*(A1 ( J) **2  +  A2 ( J  )**2  )  ) 
rFEA2=CtAA*VTFTl**2*iji( J,X, VL , VVP ) *B2P ( J)/(A1( J)*b2( J)**2) 

FFE4  3=Cc'o*VTHI 1**2*0 1 ( J , X , VL  » VVP ) *62P ( J ) *A2 ( J ) / ( b2 ( J ) **2* ( 

1  A 1  ( J  )**<:  +  A  2  ( J  )  *  *  4  )  )  _ — - - 

FFEAA=CcA6*VTF:T1**2*DYH/A1(  J)  I  Reproduced  from  | 

FF  E  ;+5=CF  A7*VThT  1  **2*L  Yb*A?  (  J  )  /  (  A 1  ( J ) **2+ A2 ( J ) **2 )  |  best  available  copy^ 

rFEA6=CLAo*VI  l.f  l**2*.--hril*VTl/(PK*RHO?**2) 

FF?A7=CI-  A9*VTI  T1**2*A4  (  J  ) **3*RHU  *  VT 1  /  ( RH0C**2*PR*  ( A1  (  J  )  **2  + 

1A2(J  )**  2  )*I)SGK  r  (  A 1  ( J  )**2+A2(  J)**2)  ) 

FFrA8=Cct>.  *VTHT1*U1(  J,  X,  VL  »VVU)  **2*l31  (  J)  **2  *VT1  *Rh01  / 

1  (KHUl**2*  (A1(J  )**  2  +<.  .*  l  1  (  J)**2) ) 

FFEA0=CE3i*VTbTl*Ul( J ,  X, VL , VVP ) **2 *B1 ( J) *B2 ( J ) *VT 1 *KHD1 / 

1  (RH00**2*(A1 ( J ) **2+ j 1 ( J ) **2  +  P  2 ( J ) **2 ) ) 

FFE50=CF52*VTliT  l*Ul(  J,  X,VL  ,VVP)**2*b2(  J)  **2*VTl*RHCl  / 

1  (  RH00**  2*  (  A  1  (  J  )**£.+  2.*B2(J)**2)  ) 

FFEBl  =  CEb3*VT»-Tl**2*m*K/(K*VTMTl+fcl  A*P+R*VTW) 

FFEB2=CE5A*VTHT  l**2*UT 1*R*A2( J ) /{ ( R * VTHT 1 +  E T A*P+R* VTW ) * 

I  A 1 ( J )**2*CS0RT ( A 1 ( J )**?tA2( J )**2) ) 
FFE‘>3=CE55*VTHT1*I)T1*(F.TA*P+R*VTW)  /  ( A 1  (J)**2*(R*VTHTl+ETA*P  +  R*VTw 
1 )  ) 

FFE5A=CF56*VTHT)**2*U1( J , X , VL , V VP ) * V T 1 PX *R/ < A1 ( J ) **2 * ( 
lR*vrHT 1  +  E  T  A*P+R* VTW ) ) 

FFE55-CE57*VTHTl**2*lfH  J , X , VL , V  VP ) *VT 1 PX*R*A2 (  J)/(  A1  (  J)**2 
1*  USORT  (  A  1  ( J  )**2+A2(J  )**2)*(f-  * VlHTl  +  F TA *P  +  R*VTW )  ) 
FFE56=CE:>b*VThTl*Ul(  J,  X,VL»  VVP)  *VT1PX*(E  TA*P+R*VTW)/  (  Ai  {  J)**2* 

1 (R*VTHTl+bTA*P+R*VTW) ) 

FFEf)7  =  CEB'V*VTHT  1**2*U  1  < J , X , VL , VVP ) *001  (  J  , X,  VL  ,  WPP , VVP)  *R*  ( D AT  AN  ( 
1U1(J)/(1.A1a*A1(J) ))/( 1.A1A)+B1(J)*DATAN(A1 ( J ) /DSORT ( A1 { J>#*2+ 

2b 1 (J )**2 ) )/CSORT( a1(J )**2+B 1( J) **2 ) ) /( Al ( J) **2 * ( R*VTHT1  +tT A*P  + 

3  R  *  V  T  W  )  ) 

FFE?8  =  CL60*VTHT  1**2*0  1  (  J ,  X,  VL  ,  V VP  )  *DU1  (  J  ,X  ,  VL ,  WPP ,  VVP)  *R*  (  DAT  AN  ( 

1 P 1  { J  )  /  (  l.41'.*A2(  J  )  )  )  /  1  •  4 14  +  F  1  (  J  )  *DA  TAN  (  A2  (  J )  /D  SORT  ( A2  (  J)  **2  FBI  ( J) 
2**2)  )/DSGKT(  A2(  J  )**2+f:  1(  J  )** 2)  )  /  { A2  (  J  )  **2*  (  R*V  THT1  +LTA*P+R*VTw  )  ) 
FFCB9=CF6  1*VTFT  1*U  1(  J ,  X,  VL  ,  VVP  ) *0U1  (  J ,  X ,  VL  » WPP ,  VVP)  *H1  (  J)  *  (  ET  A*P+ 
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K*VTW)/<  A1(J  )**2*l)Sf;<T(  Al!  J)**2+F  1  (  J)**2)*(R*VTHfl+ETA*P+R*VTw) ) 

FF  E60=CE62*VTHTl**2*Ul(  J,X,VL,WP)*I)U1(  J,X,  VL  *  WPP  ,  VVP  )  *R*  <  DAT  AN  ( 
lh2(J)/(1.4l4*ul(J)  )  )/i.4l4+t>2<  J)*DAT4N(A1I J)  /IJSCRI  (  Al  (  J  )  **2+o2  (  J ) 
2**2)  )/CSGkT (Al ( J)**2+!  ?( J)**2)  ) / ( A 1 1  J)**2*(R*VTHT1+L-TA*P+R*V)W)) 

F  H-6  l=Ct6  3*VT  I’T  l**2*li  l  (  J  »  X,  VL,  VVP )  *DU1  {  J  ,  X  ,  V L  ,  VV PP , WP )  *R*  ( 0 AT  AN  ( 

1 K  2  ( J  )  /  (  1.4l4*A2(  J)  )  )/i.414+b2( J)*OA  FAN  { A2  (  J)  /OSGRTI A2  (  J  )  **2+h2  { J ) 
2**2)  )/OS-.=<T(  Ac  (  J  )**2  +  .'  2<  J )**? )  )  /  (  A2  (  J  )  **2*  ( :<*V  THT1+E  TA*P+R*VT  W)  ) 

rre62=cefc4*viHTi*iyi(  j,x,vp,vvl) 

FFfc62=CLb4*VTHTl*Ul(  J,  X ,  VL  ,  VVP )  *P.U1  (  J  , X ,  VL ,  WPP  ,  VVP)  *82  (  J )  *  ( t  T A*P+ 
1R*VTW)/  (  Alt  J  )s*2*l)SURI  (  A 1  <  J  )  **2  +  i<2  (  J>**2  )  *(  **VTHT1+ETA*P+K*VTW) ) 
PFtfiJ=Cl.6f:vVrHTl**2*l.l(  J,X,VL,VVP)  **2*U1  PX(  VVP,VL)  *ft*  (  DAT  AN  (bl  (J) 
1/(1  *4 14* A  1(  J  )  )  )  / 1  •  4  1 4  +  ('•  1  (  J  )  * 0 A  T Af4 (  Al(  J)/DSORT(  Al  <  J)**2+81  (  J)**2)  ) 
2/  OSuRT  (  A 1  ( J  )*<  2+81(  J  )**2) )/(  AH  J)**2*(X*VTHT1  +  E  TA*P+K*VTW)  ) 

FFE64'  CE66*VTUT1**2*UU  J,X,VL,VVP)**2*U1?X(  V  VP ,  VL  )  *R*  ( DAT  AN  (  ul  (  J) 
1/ ( 1.414*A2( J ) ) )/1.414+lU( J)*f  4TAN( A2( J)/DSQRT(A2(J)**2+tU  ( J)**2) ) 
c/CSwRl  I  Ac  (J )**2+bl ( J )**2  )  )/( A2(  J)**2*(R*VTHn  +  ETA*P*R*VTWJ  ) 
FFEob=CE6  7*VTK  1*1.1  (  J,  X,  VL,  VVP)  **2*U1PX(  VVP,VL)  *81  (  J )  *  ( ET  A*P+ 
1R*VTW)/  ( A  1  ( J  )**2*0SJMT(A1(  J  )**2+C  l(J)**2)*(R*VTHTi  +  ETA*P+K*VTV.)  ) 

F  F  E66=C  1 6b*VThT l**2*U 1 ( J  »  X  » VL  » VVP ) **2*U1 PX(  VVP,  VL  )  *R*  ( DATAN(b2  (  J  ) 
1/(1. 414*  Al(J))  )/ 1. 414+t>2  (J  )*DATAN(  A 1  (  J)  /DSORT(  Al  (  J)  **2+B2  (  J)  **2  )  >/ 
21  SORT  (  Alt  J  )**2+;3  2(  J  )  **2  )  )  /  (  A 1  (  J )  **2  *  (  R*  V  TUT  1  +C  TA*P+R*V1  W)  ) 
FFi.o7=CE6  9*VTHTl**2*Ul(  J  ,  X  ,  VL  ,  VVP  )  **2  *Ul  PX(  VVP ,  VL  )  *R*  t  DAT  AN  ( Is  2  (  J  ) 
1/(1. 414*  A2(J))  )  /  1. 41 4  +  1.2  (  J  )*DaTAN(  A2(  J)/DSDRT(  A2  (  J)**?  +  B2(  J)**2)  )/ 
2I)S')RF  (  A2(J  )**2+H2(  J  )v*2)  )/(  A2(  J ) **2 * ( R * VTH T1 +E TA*P+R*VTW )  ) 
FFE68=Cb7  .*vn«Tl*Ul(  J , X , Vl , VVP ) **2*Ul°X(  VVP » VL )  *Pc  (  J )  *  (  r TA*  P+R*VTW 
1)  /  (Al  (J  )**2*CS0Kr(  AKJ  )**?+n2(J)**2)*(R*VfHTl+ETA*P+R*VTW)  ) 
FFE64=CE71*VTHT1**2*U1(  J ,  X ,  VL  ,  VVP )  *f  U1  (  J  ,X ,  VL ,  WPP ,  VVP )  *R/  (Al  (J)** 
12*(R*VT>T l  +  F  T  A*°  +  F  *V  F  * )  ) 

F  F!:7  '=CF7/.*VFHTl**2*(ji(  J,X,  VL,  VVP)  *DUl  (  J  ,X  ,  VL ,  WPP ,  V  V  P )  *R*  A2  (  J  )  / 

1  (All  J  )**2*L  SORT  (AKJ  )**2+A2(J)**2)*(P*VTHTl  +  ETA*P+R*VTW)  ) 

F  F  e  / 1=  CE  72*VTIIT1*'IL(  J,  X,  VL  ,  VVP  )  *DU1  (  J,  X,  Vu  » WPP  ,  VVP )  *  (  ET  A*P«-R*VTW ) 
1/ (Al(J)**2*(R*VTnl 1 +  E I A*P  +  k * VTW ) ) 

FF  E72=CE74*Vll<T  l**2*01(  J,X,  VL,  VVP)  **2*U1PX(  VVP ,VL )  *P./  (  Al  ( J  ) **c 
1*  (R+VTHT  1  +  ETA*P+'<*V1  U  ) 

FFE73=Ch75*VThTl**2*Ul ( J , X, VL , VVP ) **2*U1 °X ( VVP , VL ) *A2 ( J ) *R/ 

1(  Al(  J  )**2*DSwRT(  A 1  (  J  )**2+42( J  '•  **2 )  * (  K  *VTHT1  +  L: TA*P+  R*VTW )  ) 

FFE 74=CE 76* VTHT 1*01 ( J,X, VL , VVP) **2*U1PX( VVP, VL ) * ( ET A*P+R* VTW ) / ( 
IA1(  J  )**2*  (R*VTHn  +  ETA*P+R*VTW)  ) 

SUM  1=  FFE 1 +F  FL2  +  FFE  3  +  FFtb  +  FFGo+FFF7+FFE8+FFC9+FFFlu+FFEll 
SUM2  =  FFE12  +  FFt-13  +  FFh  14  +  FFt-  lt>+F Ft  1 6+F FE  1 7  +  FFc  1 8+FFE 19+FFE20+FFE21 
SUM3=FFQ22  +  FFf2  3+rFE24+Frr2^  +  FFE26+FFt27  +  FFF^8+FFE29  +  FFfc'3i'  +  FFF3i 
SUM4=FFE  32  +  F F  L33+FF.:  34  +  FFF35+rFi:36+FFE37+FFn38  +  FFc 39+FFE40  +  FFE41 
SUM5=FFC42  +  f  FE43+FFL4M  +  FFE43+FFE46+FFE47  +  FFF4P  +  FFF49  +  FFE30  +  FFF51 
SUM6=FFCt>2  +  FFR53+FFFb‘,+  FFE5b+FFE56+FrEt)7+FFFt)3+FFt59  +  FFE6^  +  FFhol 
SUM7=FFE62+FFF63+FFC6*+FFE6b+FFfc66+FFh67+FFE6b+FFE69+FFE7'+FFE71 
SUM8=FFt72  +  FFb73+rFr  1 4 

F  E 1=  (  SUM  1+SUM2+SUM  3+  SU'V  4  +  SUR5+  SU^6+  SUM7  +  SUMp  ) 

RETURN 

END 

FUNCTION  FE2( J,X, A 1, A2,H 1,8 2, A  IP, A  2?, 8  IP, b2P , P , VTW , VT1 ,VTHT1 ,VL, 
lVVP,VVPP»CThTl,OTW»UI  1 ,  RHU  l ,  0RH01 ,  VT  IPX ) 

I MPL  IC  IT  REAL*8(  A-H) ,  REAL* 8)  II- Z  ) 

COMMON  OMEGA  1,0MEGA2,  <,P  I ,  ETA  ,C  »PR  ,C  Yo  ,P1 ,  P2  ,  P3  ,  TV.1 ,  TW2 

COMMON  TW3,  T 1 1 »  T 12, T  13,  THT 1 1 ,  THT1 2  ,  THT1 3 ,RHO(  ,RH01 1 ,  RH01 2  » RHl.l 3 

COMMON  CRHO 1 1 , DR HO 12,DRHG13, VTWPXs  VTHPX,DTW1  ,CTH2 ,DTK3 ,VL1 ,VL2 

COMMON  VL3,  C0MGA,VVP  1,WP2,  VVP3,  VVPP1  ,VVPP2  »VVPP3  ,H , DTI  1  ,I)T  12  ,  DT 13 

COMMON  C4,CCbl,C49,CC2,CE5,CE3,CCE3,CCE3,CC5 

COMMON  T1PX1.T1PX2, T IP X3 , DELTA  1 ,0ELTA2 ,J 1 ,CP 

COMMON  CTHT 1 1, OTHT 12, OTH] 13 

DIMENSION  X( 12),Al( 12),A2( 12) ,81( 12) ,B2( 12) ,A1P(12) ,A2P(12 ) 
DIMENSION  13  IP  (  12  ) ,  B2P  (  12) 
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CCCl=-Cu/l.S  ,  P  I  PI  )  *  l>  L  L  TA  l*i>cL  TA2 
CCt2=-.3*rS^K I P./PI )*CP*DhL?A2**2 
CCEi=CCE 1 
CCp4=-CP/PI 

CCC-5=.25-CP<M  s:.-  <  r  (  2- /P  I  TA2**2 
CCfco=CCfc4 

CCF7=-CP/PSCK1  (  >i  )*i‘»HTA2 

CCEi-  =  -2.*CP/  (PPDSyU  TCP  1  )  KiP'cGA  1  *[)E  LTA1  ^CE  L  TA2 
CCE7=-2.*CP/(P  I-!.SvkT<  ..V£GAl.*Dt  LTA2  **2 

CCfcl.  =  CLlc'. 

CCEli  =  -2.-CP/(Pl-[,5>‘HT{P  I  )  )  *0M  f:  G  A 1  *l)f.  L  TA  2  *  *  2 
CCE  1 2=-2 .* CP/  ( p  1  -Dol.R T  ( P 1 )  )  *OV EGA 2*DcLTA  1*DEL  1A2 
CCtlj>  =  -2.-CP/(PI-siS.  ‘'HPI)  )  ^l-y.E0A2-DPLTA2*=<t2 
CCF14=CCl 12 
CCElG'CCt 13 

CCEl0=-CP/CS^  I  ( I  ) *0i'5KGA  1  *DEL TA? 

C  C  E  1 7  -  -  C  P  /  P  S  (.  R  T  ( P  I  )  *  ( * !'  F  G  A  2  *  0  E  L  T  A  2 
CCEia=-CGt  8 
CCCl9=-CCe<; 

CCE-2P--CCI.12 

ccr:<ri=-ccr.  is 
CCE22=2.*CCt-  1:. 

CCl-23=2  CCl  l‘> 

CCF24=CCFlc: 

CCE23=CCE 19 
CCF26=CCU 
CCE27=CCP^ 

CCC2G=-CCl 22 
CCf-2°=2.*CCE2  1 
CCt3.'=-2.*CCE14 
CCE31--2  .*CCf.  1  D 
CC£32=CCEcC 
CCt  3  3= CCE  2 1 
CCt34=-CC£2E 
CCE3f>=CCfcl3 
CCE 36=-CCE3P 
CCE37=-CCUi 
CCE38=CCE6 
CCE'W=  «5*CC£'l 
CCE4C=CCElh 
CCfc41  =  -CCC3'J 
CCl42=CCE  12 

CCFa3=~CP/{  PIAf.S  ^RTIPI  >  )*(>K:_Ga2*0ELTA2**2 
CCE44=CCE2C 
CCE4b=-CCt4 i 
CCE46=-2.«CCEA 
CCE47=-CCE4 
CCE48=2.*CChl 
CCF49=CCh2 

CCE50=4.*C*CMEGAl**<:*('ElTA2/(  PI*DSOAT(PI  )  ) 

CCfcS  1  =  8 .  /  (  P I*CSuP.T  ( -*  1  )  )*uMEi.Al*OMEGA2*DELTA2#C 
CCEl>2=4  .*C*CMf  GA^.*  $2*1  H  TA2/ ( P I  #()SOR  TIPI  )  ) 
CCE53=-CCL  1 
CCE54=-CC£2 

CCE5r>=CP*GELTA2/DSCP>T(Pl  ) 

CCE36=CCEG3 
CCE57=CCEGA 
CCF58=CCCbb 
CCEt>9=CCE«/CP 
CCE60=  2  .^CCt  39 
CCE6l  =  CCt  16/CP 


CCE62=CC.-42/CP 

CCE63=CCF35/0 

CCE64=-0HtGA2*D!:LTA2/l  S<vF.T{(’I  ) 

CCE65=CCf:59 

CCEb6=“2  .*uiv-EGA 1*D£L  T'*?**2/(  P I  *DSQRT( PI )  ) 

CCE67=CCEfcl 
CCE68=CCF62 
CCE69=CCt63 
CCE7(‘,  =  CCEfa4 

CCE71=CEl TA 1*DEL  I A2/GSQR  T(  PI) 

CCE72=0*DS.i.RT  ( 2./PI )*DlLTA2**2 

CCF73=CCE7Jl/CbLTtU 

CCE74-CCF71 

CCE75=CCE  72 

CCE  76=CCfc71/Cl  L  TA 1 

FFEl  =  CCi  1*VTFT  i*U FHT  1*A  1  (  J  )  / <  A2 (  J  i  **2*DS(,'RT  (  A1  (  J )  **2  +  A2  ( J )  **2  )  ) 
FFE2=CCE?*VIHTl*0THri/< A2{ J)**2) 

F  F  E4=CCfc4*V  T  HI 1**2*A 1 ( J )*PYB/ ( A1 ( J ) **2+A2 ( J ) **2 ) 

FFE8*CCEfc*VTFT l**2*r  Yh/A2(  J  )  +CCE  7*VTHT1*0TW/  C  A2  {  J)  **2  ) 
FFE6=CCE8*VThTl*VTHPX*Ul( JtA,VLtVVP)*(Al  (  J)  *DATAN(B1  { Jl/LSGRT  ( 

1 A 1  ( ,J  )**2+A2(  J  )**2)  )/(  A2(J  )**2*DSDP.T(A1«  J)**2+A2(  J)**2)  )  +  B 1  ( J )  * 
«C-ATAN(Al(J)/nS0Rr(A2(  J)**2-*-L'l(  J)**2>  )/U2(  J ) **2*DSGRT { A2 (  J)**2* 
3B1( J)**2)  )  ) 

FFC7=CCt9*VTHTl*vrilPX*Ul(  J*  x»VL,VVP>  *<DATAN(B1  {  J)/ (1 .414*A2 ( J) ) )/ 

1 ( 1 « 414*  A  2 ( J )**  2 ) +8 1( J ) *0A  TAN ( A2( J ) /O  SORT ( A2 ( J ) **2+8i ( J) **2 ) ) / 
2(A2(J)**2*DSQRT(A2(J)**2+Bl(J)**2)  )  ) 
FFE8=CCEl..*VTHTl*j;:2*»il(J»XfVL»YVP)*AlP(J)*{DATA.'J(bl(J)/DS<»RT(Al(J> 
i**2+A2(J)**2))/UbSCRl  U1(J)**2+A2(  J)**2))**3H-Bl(J)/(  (Al(  J)**2  + 
2A2U>**2)*(  A1IJ  )**2+hl(  J)**2)  )  > 

FFE9=CCfcll*VTHTl**2*Ul < J»X,VL, VVP ) *A2» ( J ) *( DATANl bl ( J ) / ( 1 .414* 

1A2(  J  )))  /  (2.828*421  J  )**3)+Bl<J)/(  <2.*A2(J)**?  )*(2.*A*  (J)**2  + 

2L'1(  J  )**2)  )  ) 

FF£10=CCE12*VTHri*VTHPX*Ul<  J  ,.X ,  VL » VVP )  *<  A1  (  J)*DATAN(B2(  J)/CSuRT( 
1A1(J  )**  2+A2 ( J  )  **<i )  )/(A2(  J )**2*D  SQR  T  <  A I  (  J )  **2+  A2  (  J )  **2  )  )+B2  (  J)* 
2CATAN(A1  (J)/GSUKr<  A2(  J  )  **2+1-2  (  J>**2)  )  /  (  A2  (  J )  **2*DSGR  I  (  A2  (  J  )  **?+B2 
3( J )**2  ) )  ) 

FFfc  1  i=CC  C  1 3*  VT  HT  l*VThP  X*U1  (  J»X»VliVVP)*(DATAN( 82  (  J > / ( 1 . 4 i4* A_ ( J ) 

1)  )/(l  .414*A2(  J)**2)+B2(  J  )*BAT4N(A2(  J)/OSCRT(A2(  J)**<:  +  B2{  J>**2)  ) 

2/ ( A2 (J )**2*US(;Rr( A2( J )**2  +  B2< J  )**2)  )  ) 

FFE12=CCE 14*V1 KTi**2*Ul  (  J  » X »  VL  *  VVP ) *A1 P( J ) * ( DA  1 AN ( B2  ( Jl/DSQRT ( 

1 A 1 ( J )**2+A2 ( J ) **2 )  )  /  (  uSwR T  (  A 1  (  J )  **2  +  A2  (  J )  **2  )  **3  >  +  B4  C  J )  /  (  (  A1  ( J  ) 
2**2+A2(J)**2)*(Al(J)**?+A2(J)**2+B?(J)**2) )  ) 
FFE13=CCE15*VTHU**2*U1  (  J»  X,VL»VVP>*A2P( J ) * ( DA T AN ( B2 ( J ) / ( 1 .4 1 4* 
lA2(J)/)/(2.828*A2(J)**3)+B2(J)/((2.*A2(J)**2)*(2.*A2(J)**2 
2  +  B2( J )**2 )  ) ) 

FFE14=CCE16*VTHT 1*U 1 ( J t  X, VL , VVP ) *VT WPX*B 1 ( J ) / ( 2 . *A2 ( J) **2* 
1DSQRT(A2(J )**2+Bl( J )**2) ) 

FFE15=CC617*VTHT1*U1<  J,  X,  VL ,  VVP  ) *VTB1'>X*B 2 (  J)  /(2.*A2(  J)**2* 

1DSQR7 ( A2(J )**2+B<;( J 1**2)  ) 

FFE16=CCE1E*VTHT1**2*U1PX{  VVP  » VL) *A1 ( J) * ( DAT AN ( B 1 ( J ) /DSQRT ( A l ( J ) 
1**2+A2(J )**2)  > /  C  (DSORT< Al( J )**2+A2<  J )  **2  )  )  **3 )  +B1  (  J)  /  (  (  A1  (  J )  **2  + 
2A2( J)**2)*( All J )**2+A2( J)**2+81( J)**2) ) ) 

FFE17*CCE19*VTMT1**2*U1PX(  VVP  » VL ) *A2 ( J)  * ( DA  TAW (B 1  ( J )  /  ( 1.414* A2 (J) 

1 ) )/(2.828*A2(J)**3)+Bl(J)/((2.*A?(J)**2)*(2.*A2(J)**2+Bi(J)**2  ) )  ) 
FFE18=CCE20*VTHT1**2*U1PX(  VVPfVU*Al(  J)*(DATAN(B21J)  /OSORTf  All  J) 
i**2+A2(J )**2> )/( (DSDRi ( Alt J)**2+A2( J)**2>) **3 ) +B2 ( J) / ( ( A 1 ( J ) **2 
2+Al(J)**2)*(Al(J)**2+A?(J)**2+81(J)**?)) ) 

FFE19»CCE21*VTHT1**2*U1PX1 VVP,VL) *A2 ( J) *< DAT  AM B2 ( J )/ ( 1 .414* A2 ( J ) 
1))/(2»828*A2(J)**3)+H2(J)/((2.*A2(J)**2)*(2.*A2(J)**2+B2(J)**2))) 
FFE20=CCE22* VTHT 1**2 *U1( J »  X »  VL  r VVP) *B l P ( J) *A1 ( J) / ( ( A1 { J ) **2  +  A2 ( J ) 
1**2+81 <J)**2)**2) 


l!au!«5i«nThTl**^ln,J,X,VL,VVP,*B1PIJ)  *A2(  J,/{  f2.=!=A2{J)t*2  + 

1  "u  ) *^2  ) )  S*V  1 H  f  1<:*2*L'1  PX(  V'/,J » VL )  *A2  <  J  >  /  ( bl  U )  *  { 2 .  *A2  ( J  )  **2  + 

1 7i  7  m*  7  5 c, ?  2  ‘T 7  T  H  r  l*  *2*u  1  (  J  » x  »  VL  » v [Ji> >  1  ** (  J >  * A  i  (  J )  /  ( B 1  (  J )  **2  *  ( 

l.U  (J  )~32  +  :«2  (  J  J  *  =*  2  +  ii  1  (J  )**2)  ) 

,  ^  ^flECf  2  ™ f.  |  **2*u  1  <  J  •  x »  VL  *  VVP  )  *01  P  (  J )  *A2  <  J )  /  {  Bl  (  J )  **2*  { 2 .  *  A 

i  31  U  K#2  )  ' H  r  1"**?*U  H  J  ’ X  > VL  *  VVP  1  «■:* i  P  t  J  5  *A2  f  J )  /  (  (2 .  *A2  (  J )  *=>2  + 

J’X,VL,VVP):i:"2P(  J,*A1  (  J,/(  (A1(J)**2  + 

1 A2( J )**2+b2{ J )**2 )**2 ) 

.i^n£SfritYrHri—2*ul«J-**v,..vvP,«2P«JJ.A2(j„c«2.*A2IJ,„P. 

I  *  >  z:  \  J  )  *+  *•  £  j  +  -Is  2  ) 

.^"^6^*VI,iTl**2*U1PxfVVP»VLl*Al(J|/CB?(J)*(Al(JJ**^ 
iA2(J)**2+t’2(J  )**,:)  ) 

ll-2U  }**2)  )"* WVTH1  1!l5!i!2!!:,J1!:>x(  vv°»  VL»*A2(  J)/(H2(  J)  *(2.*A2(  J)**2+ 

1  a^AlTS^i^tSIVI  (  J  * X* VL  * VVP >  ^l>«  J*  «  J»  /  « B2  <  J  >  —2*  c 

i  *b2T.YTJJi  ?1* 1 1  J  •  X*  VL*  VVP 1  ^2P  (J>*A11J)/C(A1(J|**2«. 

l(F»2fj?M2)**2)Tl,ri*’tt2*L,l(J,X,VL,VV,>,*t2Pl  J,*A2(  J,/(  <<?•***  <J)**2* 
^FEJ6»CCfc38*VTHn»#?*l)ipx(  w^tVL)*Al(  J)/(lU(  J1*(A1  ( J )  **2  +  A2  (  J  )  **2 
fFEa7sCCF  mVTHn**2*uit»Xf  VVP,VL)/(B1(  J)*A2(  J)  ) 

FFEjVaCtEA  l^VTHT 1**2#U1 ( J  »  X, VL , VVP) *ul  P(  J)  /  (  bl  (  J)  **2  *A2  f  l ) > 

^FFE4  3=CCb42*VTliTl**2*UiPx{VVP»VL)*Al(J)/(02(J)=MAltjt*’S'2  +  A2(j)'<‘*2 

FFe41=CCG*3*VTHTi**2*blP<(  VVP,  VL  )  /(!>2(  J)  *A2  (  J)  ) 
FPpJ/3*r5c^!VIHTi*,e‘2*l'1(  J,x’VL»vVp)*U2p(  J)/CA2(  J)*B2f J)**2) 

FFe4J.c(.E,6.VTHT1^2*rvb*M(J,/(Al,J,«2tA2,j),,2, 
FFE4b=CU4?*VrHTl**?*|'Yb/A2(  J) 

)  a  J,**3*C*VTI*'<Hni/(R,10vi**2*PP*l)S«.RT( 

lAl(J)*x-'2  +  A2(vJ)**2)*(Al(J)X-xt  +  A2(J)*#2)) 
FF[.47-CCE49X:VTHTl!>tX-2*'<H(il!!£Cx:VTl/(PR5{:^HOP*X:2) 

i"52m«2^”SL1!y<li;;f’vl’VVP’**2*h2,J’**2*c’''Ti*l(Hni/i,iHtK'**2 

1R*VTKMC  a  ri*'>U»(£U*P*-!*vlll)/(A2(  JI*«2»(R*»THT1*H4.P. 

,  *  w  54  =  CCFt>6*VTHTl  1PX{  VVP  ,  VL  )  *VT IPX*R*A1  (  J)  /  (  A2  (  j)  **?*nst  RTI 

lAl(J)**24A2U)**^)*(R*VrHT1+FTA*P+R*vlwn 
rFE55=CCE57*VTMT l**2*Ul( J»X,VLtVVP)*VTlPX*R/(A2{ J)**2*(X*VTH1 1+ 


1ETA*P*R*VTW)  ) 

FFEb6=CCE58*VTHTl*Ul( J,X,VL,  WP) *VT1PX*(  ETA*P+R*VTW )/ ( A2 ( J )**2* 

1 ( R*VTHTl+ETA*P+R*VTfc ) ) 

FFE57= (CCE59*VTHTl**2*Ul< J,Xf VL, WP) *DU1 ( J,X,VL,WPP,  WP)  *R/ (R* 
1VTHT1+ETA*P+K*vrw)  )*(A1{  J)*GATAN(Bl(  J)/DSQRT(A1<  J)**2+A2C  J)**2)  )/ 

2 ( A2 { J }**2*DS0RT< A 1 { J )**2+A2< J)**2) )+Bl( J)*DATAN(A1{ J)/DSURT(A2{ J) 
3**2+Bi(J  )**2)  )/(A2(  J  )**2*DS0RHA2<  J)**2+Bi(  J)**2) )  ) 
FrE58=(CCF63*VTHTl**2*Ul< J , X , VL , VVP ) *DU1 ( J,X,  VL,  WPP,WP)  *R/ (R* 

IV  l  HT  1  +  ET  A*P*R*VfW  )  ) *  <  DATAN (  D  1  (  J  )  /•<  1.414*A2{ J)  )  )/(1.4]4*A2(J>**2)+ 
2L1  (J  )*CATAMA2«J  )/DSyRT(A2(  J  )**2+Bl(  J>**2)  )/(A2<  J)**2*DSQRT< 
iA2(  J  )**2+Bl(  J  )**<:)  )  ) 

FFEt>9*-C,CE6l*V1  WT1*U1 ( J,  <»  VL  ,  VVP  )  *0U1  (  J ,  X ,  VL  ,  WPP » V'/P  )  *(  ET  A*P+R* 
lVrW)*Bl(J)/<  (R*VTHT1+ETA*P+R*VTW)*DSURT(A2(  J)**2+Bl  (  J)**2)*A2(  J) 
2**2 ) 

FFE60=(CCE62*VTHT1**2*U1{  J,X,VLrVVP)*OUl  (4 ,  X ,  VL,  WPP ,  WP)  *R/  <R* 
1VTHT1  +  ETA*P  +  R*VTW)  )*  (  A 1  (  J  ) *0A TAN <  B 2 <  J)  /DSGR7  (  A1  (  J)  **2+A2  (  J)  *v2  )  )/ 

2 ( A2 ( J )** 2*0 SORT ( Al(  J )**2+A2 ( J ) **2 ) ) +B2 ( J ) *DATAN( A1 { J ) /OSGRT ( 

3A2 ( J )**2+K2( J )**2 ) ) ) 

FFE6 1= ( CCt63*VTH7 l**2*Ui( J , X, VL , VVP ) *DU1  (  J ,  X  ,  VL ,  WPP ,  WP )  *R/  ( R* 
lVTHri  +  ETA*P+R*vrw) )  *  (  D A  T  AN  (  B  2  (  J  )  /  ( 1 . 414*A2 ( J ) ) )/(1.414*A2(J)**2)+ 
2B2 ( J )*CAT AN ( A2 ( J  J/DSQR T ( A2 ( J ) **2+B2 ( J ) **2 ) ) / ( A2 ( J ) **2*DSQRT ( 

3A2(J )**2+b2(J)**2) ) ) 

FFF62=CCE64*VTHTi*Ul(  J,X,VL,  WP)*DU1(  J  ,X  ,  VL ,  WPP,  WP )  * {  ET  A*P+R*VTW 
i)*B2( J)/( A2( J )**2*(R*VTHTl+fcTA*P+R*VTW)*DSQRT( A2 ( J)**2+B2( J)**2)  ) 
FFE63=  {CC£65*VTHT1**2*U1(  J ,  X ,  VL ,  VVP)  **2*U1  PX  (  WP,VL)  *R/ (,R*VTHT  1  + 
iITA*P+R*VrVO  )*(A1( J)*CATAN(bl( J)/0SGRT(A1( J)**2  +  A2( J)**2) )/( A2( J) 
2**2*CSQRT(  Al(  J  )**2+A2(  J  )**2  )  )  +B 1 C  J  )  *f>A  TAN  (  AH  J  )  /DSQR  H  A2  (  J )  **m  + 
3B1(J)**2)  )/(A2(J>**2*l)SGRHA2(  J)**2+Bl{  J)**2)  )  ) 
FFE64=(CCE66*VTHT1**2*U1(  J,X,VL,  VVP)**2*U1PX(  VVP,VL)*R/(P.*VTH1 1  + 
1ETA*P+R*VTW)  )*(  DATAN  (l'l(  J)/(  1 . 414*A2  (  J  )  )  ) /<  1 . 414*A2  (  J)  **2  )  +B1  (  J ) 
2*DAT  AN ( A2 ( J ) /CSjRT ( A2( J ) **2+B 1( J ) **2 ) ) / ( A2 ( J ) **2  *DSURT ( A2 ( J ) **2  + 

3ti 1 { J )**2  )  )  ) 

rFE65=CCC67*VTHTl*Ul< J,X, VL , VVP ) **2*Ul PX ( VVP,VL) *{ ETA*P+R*VTW ) * 

181 (J )/ (A2(J )**2*0S0RT( A2( J )**2+61( J)**2) *(R*VTHT1+ETA*P+R*VTW) ) 
FFE66=(CCE68*VTHT1**2*U1( J , X , VL , VVP ) **2*Ul PX ( VVP, VL) *R/(R*VTHT1+ 

1 ETA*P*R* VTW  )  )*(A1<  J  )  *f-A TAM ( b2  (  J)/DSQRT(A1(  J)**2+A2(  J)**2i  )  /  (  Am  ( J  ) 
2**2*DSQRT(A1(J)**2+A2{ J)**2)  )+B2(J)*DATAMAl(J)/DSGRT{A2(J)**2  + 

382 ( J)**2) )/(A2(J»**2*DSGRT(A2( J)**2+B2( J)**2) ) ) 
FFE67=(CCEG9*VTHT1**2*U1( J,X, VL,VVP)**2*U1PX( VVP,VL)*R/( R*VTHT1+ 
lCrA*P+R*VTW) )*( DATAN ( b  2 ( J ) / < 1 . 414*A2 ( J ) ) ) / ( 1 . 4 14*A2 ( J ) **2 ) +b2 ( J ) * 
2DATAN(A2(J)/CSQRT(A2( J )**2+B2( J)**2) )/(A2( J)**2*DS0RT( 

3A2 (J )**2+b2( J  )**2)  )  ) 

FFE68=CCE7C*VTHT1*U1( J, X,VL, WP)**2*U1PX( WP,VL) * ( ETA*P+R*VTW )  * 
1821  J  )/<A2(  J  )**2*DSQRT(  A2(  J)**2+B2(  J)  **2 )  * (  R*VTHT1  +  ET  A*P  +  R*VTW )  ) 
FFE69=CCE71*VTHTI**2*U1(  J,X,VL,  VVP)*UU1(  J,X,  VL,VVPP,WP)*R*A1  I  J)/ 

1 ( A2( J )**2*DSORT( A1 ( J )**2+42< J ) **2 ) *( R*VTH Tl+E TA*P+R* VTW) ) 
FFE70=CCF72*VTHT1**2*U1( J,X, VL , VVP)*DU1( J,X,VL ,VVPP , VVP) *R/ (Am  I J) 
1**2*(R*VTHT1+ETA*P+R*VTW) ) 

FFE71  =  CCE73*VTHT1*U1(  J,X,VL,  VVP)  *0U1  (  J  ,X  ,  VL ,  WPP ,  VVP )  *  (  ET  A*P  + 
lR*VTW)/{ A2(J )**2*(R*V)HT1+E1A*P+R*VTK) ) 

FFE72=CC  E74*VTHT 1**  2*U1 ( J , X, VL , VVP > **2 *U1 PX( VVP,VL) *R*A1 ( J)/ ( A2 ( J) 
1**2*DSQKT(A1(  J  )**2+A2.(  J  )**2)*(R*VTHT1  +  ETA*P  +  R*VTW)  ) 
FFE73=CCE75*VTHT1**2*1J1(  J,X,VL,WP)  **2*U1PX(  VVP,VL)  *R/  (  A2  (  J  )**2* 

1 ( R*VTHT1  +  ETA*P+R*VTW  )  ) 

FFE74=CCE76*VTHT1*U1( J,X,VL, VVP)**2*U1PX( VVP, VL) *(E1 A*P+R*VTW ) / 

1( A2< J )**2*(R*VTHI 1  +  E TA*P+R*V TH )  ) 

SUHl=FFEl+FFE2  +  FFE4  +  FFEt>+FFE6+FFE7+FFE8*FFE9+FFE10+FFEll 
SUH2=FFE12+FFE13+FFE14  +  FFF15+FFE16+FFE17+FFl-18+FFE19  +  FFE20+FFL21 
SUM3=FFE22+FFE23+FFE24+FFE25+FFE26+FFh27+FFE28+FFE29+FFE30+FFE31 
SUM4=FF  E32  +  FFE33  +  FFE 34+FFE35+FFt36+FFc37+FFE38+FFE39  +  FFE40  +  FFt41 
SUM5=FFE42  +  FFE43  +  FFE44+FFE45+FFE46+FFE47  +  FFE4  8+FFC49+FFE50  +  FFbl>l 
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SUM6=  F  F  F"  <^  +  F  T  jJ+FF"  :>*. +  F T ps+F  FL  ;>o+F  F  F  57+T  F-‘ 58  +  F F  E  >9  +  FF  *  6~ +  F f  .ol 
SUM7=f  Fr6£.+FH-6.>  +  l-FLO/-+Fr  1'o-j  +  rFc66  +  FFfco7+FF!:6Li  +  rF^6'y  +  FFE7..'«-FF  E  71 
SU.M.&=FF-:7^  +  FF‘-7i+Fr  7'. 

FE2=  (  SUM  1  +  SUL2  +  SUM3+SUM4  +  Su.i'.>+  jU!‘6+  SUM 7+  SUM 8  ) 

ETUR  Ni 
cMl) 

FUNCTION  ulP.<(  VVP,  7L  ) 

IMPLICIT  kCaL’M  A-HJ ,  ’  :-.AL*c{0-Z) 

COMMON  Of  CGA1 ,  O'":  -GA/- ,  ,  P  I ,  r  T  \ ,  C » PR  »D  Y£  ,P  1 ,  P2  »  P3 ,  TWi  ,  TK2 

COMMON  T  W  2  ?  1  11,  F 12,  n?,THril,  rHT12,THri3  *H011  ,RHG12,RHt_13 

COMMON  DRI;(  1 1  *  D:<Ji>  i  2  *  I i  j ,  VTWPX ,  V  THPX,  CTWI  ,OTW2  »0TW3 ,  VLl »  VL2 

COMMON  VL3,  DO*  oA,  VVP  1 ,  VVPC,  VVP3,  VVPP1 ,  VVPP2  ,  VVPP3,H,0T1 1  ,l/ri2,CT  1  3 

COMMON  C4,CC5l»C4,«v^2»CC3*Ct:  3,CC£3,C^E5,CCo 

CUMMON  1  lPXl,TiPA2,  Tli-X3,t'LL  r A  1 , DFL TA? , J 1 ,CP 

COMMON  Cl  1-Til,  bTHT12,!'ThT  13 

UlPX  =  s, 

KETURo 

end 

FUNCTION  Ll(J,X,VL,VVP) 

IMPL  ICir  |<EAL~8(  A-ll)  ,R.-aL*8U;-Z  ) 

COMMON  of-' EG  A 1 ,  UMl-CA2,  R ,  P  1 ,  ET  A  ,C ,  PM  ,0  YB ,  P  i  ,  P2 ,  °3 ,  TW1 ,  TW2 

COMMON  TV.J,  I  11,  F  12,  T1  J ,  IHTli,  I HT 1 2 , THT 1 3  ,RHOO , RHG1 1 , RH01 2 , RHL1 3 

COMMON  Uh(»ll,DRHul?,»/RHf  13,  V  TUP  X,  VTHP  X ,  DTW1  ,C  TW2  ,0TW3  ,  VLl  ,  VL2 

COMMON  VL  3,  CUMGtt , V V? 1 , VVk 2 , VVP 3 , V VPP 1  ,  VVPP2  ,  VVPP3  ,H ,  DT 1 1 ,  DT  U  ,  DT  1 3 

COMMON  C  A ,  CCfs  1,  CA9,  CC2 » C>'-5»CF  3  ,CCE  3,CCF5  ,CC5 

COMMON  T  1PX1,T1PX?,  1 1PX3,C-CLTA1,0CL  IA2,J1,CP 

COMMON  OTHT 1 1, 0THT1 2 - TUT  1 3 

DIMENSION  X { 12) 

U  i=  1 . 

RETURN 

END 

FUNCTION  CU1(J,X,VL,VVPP,VVP) 

IMPLICIT  REAL*8(A-H),ReAL*3(G-Z > 

CUMMON  UMtGA  1,  UMtGA2,R  ,P  I  ,CTA  ,C  *PR  »D  Y[s  ,P1  ,P2  ,P3  ,Twl  ,TW2 
COMMON  TW3,  I  1 1 ,  T 1 2 ,  r  13 ,  THT  1 1 ,  Til  1 12  ,  THT  1 3  ,RHUC  ,  RHOll ,  RH012  ,  RHC  L  3 
COMMON  DRHU11,DRH012,CRH013,  VTWPX,  VTHPX,DTW1  ,DTW2  ,1) T  W3  ,  V LI  ,VL2 
COMMON  VL 3, DONGA, VVP1, VVP2 , VVP3, VVPP1 , VVPP2 , V VPP3 , H , DTI  1 ,UT12,DTli 
COMMON  C4,CC51,C49,CC2,CE5,CE3,CCE3,CCE5  ,CC5 
COMMON  1  IPX  1,  TIP  X2,  T  1°  X  3,  DEL  TA1,DELTA2»J1»CP 
COMMON  l)Thril,DTMT12,0rHT13 
DIMENSION  X( 12) 

DU  1  =  0  .0 
RETURN 
END 
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6  6 

17 

6 

475-,. . 

4317. 

4058. 

3600. 

3142. 

2358. 

0.0 

0 .  ^  v  2 

C  .  C  •.  4 

3.006 

0.008 

C.01 

l.C 

5Cv  . 

120C. 

2  COO. 

2600. 

280C . 

2. roc 

2.5:00 

4.200C 

7.4000 

10.73000 

12,000 

4050. 

3817. 

3358. 

2  900. 

2442. 

1638. 

2160030. 

3312i  03. 

576- 'OCC. 

25920CO. 

14400 jO. 

2£8lOC . 

10  56  240 . 

1619568. 

2616640. 

1267488. 

704160 

234485. 

.1399 

.2486 

.45  7 

.2797 

.1762 

.0724 

o.:- 

287509 . 

-34375C. 

-4250C0. 

-20166.7 

-227916.65 

G.'j 

2675*'0. 

-343750. 

-425000. 

-20166.7 

-229916.65 

O.C 

‘34 .95 

-16. 1C 

-69.60 

51.90 

-192.758 
l.C  i.i  1.2 

1.3  1.4 

1.5  1.6  1.7 

1.8  1.9  2.0 
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